home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-10-28 | 13.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 46 6f 75 72 69 65 72 |..... > |<Fourier|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 34 ee 20 85 20 20 | eb 31 32 3a c8 99 22 48 |..4. . |.12:.."H|
|00000030| 6f 75 72 67 6c 61 73 73 | 5f 53 6d 61 73 68 22 3a |ourglass|_Smash":|
|00000040| f6 3a f1 22 20 61 74 20 | 6c 69 6e 65 3a 20 22 3b |.:." at |line: ";|
|00000050| 9e 3a e0 0d 00 1e 1f 76 | 65 72 73 69 6f 6e 24 3d |.:.....v|ersion$=|
|00000060| 22 31 2e 32 30 20 28 32 | 36 2d 41 75 67 2d 39 32 |"1.20 (2|6-Aug-92|
|00000070| 29 22 0d 00 28 0d de 20 | 71 25 20 31 35 30 30 0d |)"..(.. |q% 1500.|
|00000080| 00 32 11 de 20 62 75 66 | 66 65 72 31 25 20 32 30 |.2.. buf|fer1% 20|
|00000090| 0d 00 3c 0e 24 71 25 3d | 22 54 41 53 4b 22 0d 00 |..<.$q%=|"TASK"..|
|000000a0| 46 33 c8 99 20 22 57 69 | 6d 70 5f 49 6e 69 74 69 |F3.. "Wi|mp_Initi|
|000000b0| 61 6c 69 73 65 22 2c 32 | 30 30 2c 21 71 25 2c 22 |alise",2|00,!q%,"|
|000000c0| 46 6f 75 72 69 65 72 22 | 20 b8 20 2c 74 61 73 6b |Fourier"| . ,task|
|000000d0| 25 0d 00 50 15 c8 99 20 | 22 48 6f 75 72 67 6c 61 |%..P... |"Hourgla|
|000000e0| 73 73 5f 4f 6e 22 0d 00 | 5a 32 41 70 70 44 69 72 |ss_On"..|Z2AppDir|
|000000f0| 24 3d a4 6f 73 5f 56 61 | 72 47 65 74 56 61 6c 28 |$=.os_Va|rGetVal(|
|00000100| 71 25 2c 32 30 30 30 2c | 22 46 6f 75 72 69 65 72 |q%,2000,|"Fourier|
|00000110| 24 44 69 72 22 2c 31 29 | 0d 00 64 27 de 20 73 70 |$Dir",1)|..d'. sp|
|00000120| 20 36 34 30 30 30 3a 3a | 73 70 21 34 3d 30 3a 73 | 64000::|sp!4=0:s|
|00000130| 70 21 38 3d 31 36 3a 73 | 70 21 31 32 3d 31 36 0d |p!8=16:s|p!12=16.|
|00000140| 00 6e 1c c8 99 20 22 4f | 53 5f 53 70 72 69 74 65 |.n... "O|S_Sprite|
|00000150| 4f 70 22 2c 26 32 30 39 | 2c 73 70 0d 00 78 32 c8 |Op",&209|,sp..x2.|
|00000160| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00000170| 26 32 30 46 2c 73 70 2c | 22 73 63 72 65 65 6e 22 |&20F,sp,|"screen"|
|00000180| 2c 30 2c 36 30 34 2c 32 | 30 30 2c 31 32 0d 00 82 |,0,604,2|00,12...|
|00000190| 22 de 20 73 6e 61 6d 65 | 31 25 20 32 30 3a 24 73 |". sname|1% 20:$s|
|000001a0| 6e 61 6d 65 31 25 3d 22 | 73 63 72 65 65 6e 22 0d |name1%="|screen".|
|000001b0| 00 8c 43 c8 99 20 22 4f | 53 5f 53 70 72 69 74 65 |..C.. "O|S_Sprite|
|000001c0| 4f 70 22 2c 26 31 31 38 | 2c 73 70 2c 73 6e 61 6d |Op",&118|,sp,snam|
|000001d0| 65 31 25 20 b8 20 2c 2c | 73 70 5f 70 74 72 31 25 |e1% . ,,|sp_ptr1%|
|000001e0| 3a f4 20 70 74 72 20 74 | 6f 20 27 73 63 72 65 65 |:. ptr t|o 'scree|
|000001f0| 6e 27 0d 00 96 39 73 69 | 63 6f 6e 3d a4 69 63 6f |n'...9si|con=.ico|
|00000200| 6e 5f 63 72 65 61 74 65 | 28 2d 31 2c 30 2c 30 2c |n_create|(-1,0,0,|
|00000210| 36 38 2c 36 38 2c 30 2c | 30 2c 26 33 30 30 32 2c |68,68,0,|0,&3002,|
|00000220| 22 21 46 6f 75 72 69 65 | 72 22 29 0d 00 a0 12 63 |"!Fourie|r")....c|
|00000230| 6c 61 69 6d 71 75 65 72 | 79 24 3d 22 22 0d 00 aa |laimquer|y$=""...|
|00000240| 3b 63 6c 61 69 6d 6d 65 | 6e 75 24 20 3d 22 22 20 |;claimme|nu$ ="" |
|00000250| 20 20 20 20 20 20 20 20 | 3a f4 20 53 65 74 20 62 | |:. Set b|
|00000260| 79 20 74 68 65 20 6d 65 | 6e 75 5f 78 78 78 78 20 |y the me|nu_xxxx |
|00000270| 72 6f 75 74 69 6e 65 73 | 0d 00 b4 3f 63 6c 61 69 |routines|...?clai|
|00000280| 6d 64 72 61 67 24 20 3d | 22 22 20 20 20 20 20 20 |mdrag$ =|"" |
|00000290| 20 20 20 3a f4 20 53 65 | 74 20 62 79 20 74 68 65 | :. Se|t by the|
|000002a0| 20 75 73 65 72 64 72 61 | 67 5f 78 78 78 78 20 72 | userdra|g_xxxx r|
|000002b0| 6f 75 74 69 6e 65 73 0d | 00 be 16 63 6c 6f 73 65 |outines.|...close|
|000002c0| 64 6f 77 6e 20 20 20 20 | 20 20 20 3d a3 0d 00 c8 |down | =....|
|000002d0| 16 6f 70 65 6e 25 20 20 | 20 20 20 20 20 20 20 20 |.open% | |
|000002e0| 20 3d a3 0d 00 d2 16 63 | 68 61 6e 67 65 64 25 20 | =.....c|hanged% |
|000002f0| 20 20 20 20 20 20 20 3d | b9 0d 00 dc 16 77 68 6f | =|.....who|
|00000300| 6c 65 25 20 20 20 20 20 | 20 20 20 20 20 3d b9 0d |le% | =..|
|00000310| 00 e6 0c 64 72 61 77 6e | 25 3d a3 0d 00 f0 1b 64 |...drawn|%=.....d|
|00000320| 31 25 3d b9 3a 64 32 25 | 3d a3 3a 64 33 25 3d a3 |1%=.:d2%|=.:d3%=.|
|00000330| 3a 64 34 25 3d a3 0d 00 | fa 2c 73 74 65 70 25 20 |:d4%=...|.,step% |
|00000340| 3d 32 3a 73 74 61 72 74 | 25 3d 31 3a 6f 72 64 65 |=2:start|%=1:orde|
|00000350| 72 25 3d 32 30 3a 73 63 | 61 3d 31 3a 66 72 65 71 |r%=20:sc|a=1:freq|
|00000360| 3d 31 0d 01 04 07 71 3d | 30 0d 01 0e 42 de 20 74 |=1....q=|0...B. t|
|00000370| 65 78 74 24 28 35 30 29 | 2c 73 65 74 74 69 6e 67 |ext$(50)|,setting|
|00000380| 28 35 30 29 2c 66 6c 61 | 67 73 28 35 30 29 20 3a |(50),fla|gs(50) :|
|00000390| f4 20 75 73 65 64 20 62 | 79 20 74 68 65 20 6d 65 |. used b|y the me|
|000003a0| 6e 75 20 72 6f 75 74 69 | 6e 65 73 0d 01 18 42 de |nu routi|nes...B.|
|000003b0| 20 73 75 62 6d 65 6e 75 | 28 35 30 29 2c 72 65 66 | submenu|(50),ref|
|000003c0| 28 35 30 29 2c 6d 65 6e | 75 70 6f 73 28 32 30 29 |(50),men|upos(20)|
|000003d0| 20 3a f4 20 75 73 65 64 | 20 62 79 20 74 68 65 20 | :. used| by the |
|000003e0| 6d 65 6e 75 20 72 6f 75 | 74 69 6e 65 73 0d 01 22 |menu rou|tines.."|
|000003f0| 0f de 20 6d 65 6e 75 25 | 20 35 31 32 0d 01 2c 15 |.. menu%| 512..,.|
|00000400| de 20 69 6e 64 69 72 65 | 63 74 25 20 26 32 30 30 |. indire|ct% &200|
|00000410| 30 0d 01 36 12 de 20 6d | 73 67 62 6c 6b 25 20 32 |0..6.. m|sgblk% 2|
|00000420| 35 36 3a 0d 01 40 29 3a | f4 20 55 73 65 64 20 66 |56:..@):|. Used f|
|00000430| 6f 72 20 69 6e 74 65 72 | 20 74 61 73 6b 20 63 6f |or inter| task co|
|00000440| 6d 6d 75 6e 69 63 61 74 | 69 6f 6e 73 0d 01 4a 25 |mmunicat|ions..J%|
|00000450| 69 70 74 72 25 3d 69 6e | 64 69 72 65 63 74 25 3a |iptr%=in|direct%:|
|00000460| 69 65 6e 64 25 3d 69 70 | 74 72 25 2b 26 32 30 30 |iend%=ip|tr%+&200|
|00000470| 30 0d 01 54 1a de 20 66 | 64 61 74 65 25 20 35 2c |0..T.. f|date% 5,|
|00000480| 66 62 75 66 66 65 72 25 | 20 32 38 0d 01 5e 30 f2 |fbuffer%| 28..^0.|
|00000490| 6f 70 65 6e 74 65 6d 70 | 6c 61 74 65 66 69 6c 65 |opentemp|latefile|
|000004a0| 28 22 3c 46 6f 75 72 69 | 65 72 24 44 69 72 3e 2e |("<Fouri|er$Dir>.|
|000004b0| 54 65 6d 70 6c 61 74 65 | 73 22 29 0d 01 68 1d f2 |Template|s")..h..|
|000004c0| 6c 6f 61 64 74 65 6d 70 | 6c 61 74 65 28 22 70 72 |loadtemp|late("pr|
|000004d0| 6f 67 49 6e 66 6f 22 29 | 0d 01 72 26 c8 99 20 22 |ogInfo")|..r&.. "|
|000004e0| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|000004f0| 77 22 2c 2c 71 25 20 b8 | 20 69 6e 66 6f 25 0d 01 |w",,q% .| info%..|
|00000500| 7c 1a f2 6c 6f 61 64 74 | 65 6d 70 6c 61 74 65 28 ||..loadt|emplate(|
|00000510| 22 6d 61 69 6e 77 22 29 | 0d 01 86 0c 71 25 21 36 |"mainw")|....q%!6|
|00000520| 34 3d 73 70 0d 01 90 27 | c8 99 20 22 57 69 6d 70 |4=sp...'|.. "Wimp|
|00000530| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|00000540| 71 25 20 b8 20 6d 61 69 | 6e 77 25 0d 01 9a 16 f2 |q% . mai|nw%.....|
|00000550| 63 6c 6f 73 65 74 65 6d | 70 6c 61 74 65 66 69 6c |closetem|platefil|
|00000560| 65 0d 01 a4 28 f2 69 63 | 6f 6e 5f 70 75 74 64 61 |e...(.ic|on_putda|
|00000570| 74 61 28 71 25 2c 69 6e | 66 6f 25 2c 34 2c 76 65 |ta(q%,in|fo%,4,ve|
|00000580| 72 73 69 6f 6e 24 2c 30 | 29 0d 01 ae 16 65 72 72 |rsion$,0|)....err|
|00000590| 6f 72 5f 66 6c 61 67 25 | 20 20 20 20 20 3d 33 0d |or_flag%| =3.|
|000005a0| 01 b8 0c f2 6e 65 77 76 | 61 6c 73 0d 01 c2 0e ee |....newv|als.....|
|000005b0| 20 85 20 f2 65 72 72 6f | 72 0d 01 cc 16 c8 99 20 | . .erro|r...... |
|000005c0| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|000005d0| 01 d6 05 f5 0d 01 e0 17 | 20 20 f2 61 63 74 69 6f |........| .actio|
|000005e0| 6e 28 a4 70 6f 6c 6c 28 | 30 29 29 0d 01 ea 0f fd |n(.poll(|0)).....|
|000005f0| 20 63 6c 6f 73 65 64 6f | 77 6e 0d 01 f4 0e 24 71 | closedo|wn....$q|
|00000600| 25 3d 22 54 41 53 4b 22 | 0d 01 fe 22 c8 99 20 22 |%="TASK"|...".. "|
|00000610| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 2c |Wimp_Clo|seDown",|
|00000620| 74 61 73 6b 25 2c 71 25 | 21 30 0d 02 08 05 e0 0d |task%,q%|!0......|
|00000630| 02 12 0b dd f2 65 72 72 | 6f 72 0d 02 1c 15 e7 20 |.....err|or..... |
|00000640| 65 72 72 6f 72 5f 66 6c | 61 67 25 3d 33 20 8c 0d |error_fl|ag%=3 ..|
|00000650| 02 26 4b 20 20 f2 65 72 | 72 6f 72 62 6f 78 28 22 |.&K .er|rorbox("|
|00000660| 55 6e 65 78 70 65 63 74 | 65 64 20 65 72 72 6f 72 |Unexpect|ed error|
|00000670| 3a 2d 20 22 2b f6 24 2b | 22 20 49 6e 74 65 72 6e |:- "+.$+|" Intern|
|00000680| 61 6c 20 65 72 72 6f 72 | 20 63 6f 64 65 20 22 2b |al error| code "+|
|00000690| c3 9e 29 3a f1 46 49 4c | 45 24 0d 02 30 05 cc 0d |..):.FIL|E$..0...|
|000006a0| 02 3a 13 20 20 f2 65 72 | 72 6f 72 62 6f 78 28 f6 |.:. .er|rorbox(.|
|000006b0| 24 29 0d 02 44 04 0d 02 | 4e 05 cd 0d 02 58 11 65 |$)..D...|N....X.e|
|000006c0| 72 72 6f 72 5f 66 6c 61 | 67 25 3d 33 0d 02 62 18 |rror_fla|g%=3..b.|
|000006d0| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 53 6d |.. "Hour|glass_Sm|
|000006e0| 61 73 68 22 0d 02 6c 05 | e1 0d 02 76 04 0d 02 80 |ash"..l.|...v....|
|000006f0| 0c dd f2 6f 6b 28 65 24 | 29 0d 02 8a 11 65 72 72 |...ok(e$|)....err|
|00000700| 6f 72 5f 66 6c 61 67 25 | 3d 31 0d 02 94 0a 85 20 |or_flag%|=1..... |
|00000710| 31 2c 65 24 0d 02 9e 05 | e1 0d 02 a8 04 0d 02 b2 |1,e$....|........|
|00000720| 12 dd f2 65 72 72 6f 72 | 62 6f 78 28 72 24 29 0d |...error|box(r$).|
|00000730| 02 bc 08 ea 20 72 25 0d | 02 c6 19 21 71 25 3d 9f |.... r%.|...!q%=.|
|00000740| 3a 24 28 71 25 2b 34 29 | 3d 72 24 2b bd 28 30 29 |:$(q%+4)|=r$+.(0)|
|00000750| 0d 02 d0 37 c8 99 20 22 | 57 69 6d 70 5f 52 65 70 |...7.. "|Wimp_Rep|
|00000760| 6f 72 74 45 72 72 6f 72 | 22 2c 71 25 2c 65 72 72 |ortError|",q%,err|
|00000770| 6f 72 5f 66 6c 61 67 25 | 2c 22 46 6f 75 72 69 65 |or_flag%|,"Fourie|
|00000780| 72 22 20 b8 20 72 25 0d | 02 da 18 e7 20 72 25 3d |r" . r%.|.... r%=|
|00000790| 32 20 8c 20 63 6c 6f 73 | 65 64 6f 77 6e 3d b9 0d |2 . clos|edown=..|
|000007a0| 02 e4 05 e1 0d 02 ee 3c | dd f2 63 6c 69 63 6b 77 |.......<|..clickw|
|000007b0| 69 6e 64 6f 77 28 6d 6f | 75 73 65 78 25 2c 6d 6f |indow(mo|usex%,mo|
|000007c0| 75 73 65 79 25 2c 62 75 | 74 74 6f 6e 25 2c 68 61 |usey%,bu|tton%,ha|
|000007d0| 6e 64 6c 65 25 2c 69 63 | 6f 6e 25 2c 6f 62 25 29 |ndle%,ic|on%,ob%)|
|000007e0| 0d 02 f8 10 c8 8e 20 68 | 61 6e 64 6c 65 25 20 ca |...... h|andle% .|
|000007f0| 0d 03 02 2c 20 20 c9 20 | 6d 61 69 6e 77 25 20 20 |..., . |mainw% |
|00000800| 20 3a f2 63 6c 69 63 6b | 6d 61 69 6e 77 28 62 75 | :.click|mainw(bu|
|00000810| 74 74 6f 6e 25 2c 69 63 | 6f 6e 25 29 0d 03 0c 2e |tton%,ic|on%)....|
|00000820| 20 20 c9 20 2d 32 20 20 | 20 20 20 20 20 3a f2 63 | . -2 | :.c|
|00000830| 6c 69 63 6b 69 63 6f 6e | 62 61 72 28 62 75 74 74 |lickicon|bar(butt|
|00000840| 6f 6e 25 2c 69 63 6f 6e | 25 29 0d 03 16 05 cb 0d |on%,icon|%)......|
|00000850| 03 20 04 0d 03 2a 05 e1 | 0d 03 34 21 dd f2 63 6c |. ...*..|..4!..cl|
|00000860| 69 63 6b 69 63 6f 6e 62 | 61 72 28 62 75 74 74 6f |ickiconb|ar(butto|
|00000870| 6e 25 2c 69 63 6f 6e 25 | 29 0d 03 3e 11 e7 20 69 |n%,icon%|)..>.. i|
|00000880| 63 6f 6e 25 3c 30 20 8c | 20 e1 0d 03 48 0a c8 8e |con%<0 .| ...H...|
|00000890| 20 b9 20 ca 0d 03 52 11 | 20 20 c9 20 62 75 74 74 | . ...R.| . butt|
|000008a0| 6f 6e 25 3d 32 0d 03 5c | 20 20 20 20 20 f4 20 6f |on%=2..\| . o|
|000008b0| 70 65 6e 73 20 74 68 65 | 20 69 63 6f 6e 62 61 72 |pens the| iconbar|
|000008c0| 20 6d 65 6e 75 0d 03 66 | 17 20 20 20 20 e7 20 69 | menu..f|. . i|
|000008d0| 63 6f 6e 25 3d 73 69 63 | 6f 6e 20 8c 0d 03 70 15 |con%=sic|on ...p.|
|000008e0| 20 20 20 20 20 20 f2 6d | 65 6e 75 5f 73 69 63 6f | .m|enu_sico|
|000008f0| 6e 0d 03 7a 09 20 20 20 | 20 cd 0d 03 84 11 20 20 |n..z. | ..... |
|00000900| c9 20 62 75 74 74 6f 6e | 25 3d 34 0d 03 8e 32 20 |. button|%=4...2 |
|00000910| 20 20 6f 70 65 6e 25 3d | b9 3a 63 68 61 6e 67 65 | open%=|.:change|
|00000920| 64 25 3d b9 3a f2 6f 70 | 65 6e 77 69 6e 64 6f 77 |d%=.:.op|enwindow|
|00000930| 28 6d 61 69 6e 77 25 2c | a3 2c 2d 31 29 0d 03 98 |(mainw%,|.,-1)...|
|00000940| 05 cb 0d 03 a2 05 e1 0d | 03 ac 1f dd f2 63 6c 69 |........|.....cli|
|00000950| 63 6b 6d 61 69 6e 77 28 | 62 75 74 74 6f 6e 25 2c |ckmainw(|button%,|
|00000960| 69 63 6f 6e 25 29 0d 03 | b6 0a c8 8e 20 b9 20 ca |icon%)..|.... . .|
|00000970| 0d 03 c0 10 20 c9 20 62 | 75 74 74 6f 6e 25 3d 34 |.... . b|utton%=4|
|00000980| 0d 03 ca 0a c8 8e 20 b9 | 20 ca 0d 03 d4 0e 20 c9 |...... .| ..... .|
|00000990| 20 69 63 6f 6e 25 3d 35 | 0d 03 de 3d 20 73 74 61 | icon%=5|...= sta|
|000009a0| 72 74 25 3d 30 3a f2 69 | 63 6f 6e 5f 70 75 74 64 |rt%=0:.i|con_putd|
|000009b0| 61 74 61 28 71 25 2c 6d | 61 69 6e 77 25 2c 35 2c |ata(q%,m|ainw%,5,|
|000009c0| 22 45 76 65 6e 22 2c 30 | 29 3a 20 63 68 61 6e 67 |"Even",0|): chang|
|000009d0| 65 64 25 3d b9 0d 03 e8 | 0e 20 c9 20 69 63 6f 6e |ed%=....|. . icon|
|000009e0| 25 3d 36 0d 03 f2 3d 20 | 73 74 61 72 74 25 3d 31 |%=6...= |start%=1|
|000009f0| 3a f2 69 63 6f 6e 5f 70 | 75 74 64 61 74 61 28 71 |:.icon_p|utdata(q|
|00000a00| 25 2c 6d 61 69 6e 77 25 | 2c 36 2c 22 4f 64 64 20 |%,mainw%|,6,"Odd |
|00000a10| 22 2c 30 29 3a 20 63 68 | 61 6e 67 65 64 25 3d b9 |",0): ch|anged%=.|
|00000a20| 0d 03 fc 0e 20 c9 20 69 | 63 6f 6e 25 3d 37 0d 04 |.... . i|con%=7..|
|00000a30| 06 41 20 6f 72 64 65 72 | 25 2d 3d 31 20 3a f2 69 |.A order|%-=1 :.i|
|00000a40| 63 6f 6e 5f 70 75 74 64 | 61 74 61 28 71 25 2c 6d |con_putd|ata(q%,m|
|00000a50| 61 69 6e 77 25 2c 38 2c | c3 28 6f 72 64 65 72 25 |ainw%,8,|.(order%|
|00000a60| 29 2c 30 29 3a 63 68 61 | 6e 67 65 64 25 3d b9 0d |),0):cha|nged%=..|
|00000a70| 04 10 0e 20 c9 20 69 63 | 6f 6e 25 3d 39 0d 04 1a |... . ic|on%=9...|
|00000a80| 41 20 6f 72 64 65 72 25 | 2b 3d 31 20 3a f2 69 63 |A order%|+=1 :.ic|
|00000a90| 6f 6e 5f 70 75 74 64 61 | 74 61 28 71 25 2c 6d 61 |on_putda|ta(q%,ma|
|00000aa0| 69 6e 77 25 2c 38 2c c3 | 28 6f 72 64 65 72 25 29 |inw%,8,.|(order%)|
|00000ab0| 2c 30 29 3a 63 68 61 6e | 67 65 64 25 3d b9 0d 04 |,0):chan|ged%=...|
|00000ac0| 24 0f 20 c9 20 69 63 6f | 6e 25 3d 31 30 0d 04 2e |$. . ico|n%=10...|
|00000ad0| 40 20 73 63 61 3d 73 63 | 61 2a 30 2e 35 3a f2 69 |@ sca=sc|a*0.5:.i|
|00000ae0| 63 6f 6e 5f 70 75 74 64 | 61 74 61 28 71 25 2c 6d |con_putd|ata(q%,m|
|00000af0| 61 69 6e 77 25 2c 31 38 | 2c c3 28 73 63 61 29 2c |ainw%,18|,.(sca),|
|00000b00| 30 29 3a 63 68 61 6e 67 | 65 64 25 3d b9 0d 04 38 |0):chang|ed%=...8|
|00000b10| 0f 20 c9 20 69 63 6f 6e | 25 3d 31 31 0d 04 42 3e |. . icon|%=11..B>|
|00000b20| 20 73 63 61 3d 73 63 61 | 2a 32 3a f2 69 63 6f 6e | sca=sca|*2:.icon|
|00000b30| 5f 70 75 74 64 61 74 61 | 28 71 25 2c 6d 61 69 6e |_putdata|(q%,main|
|00000b40| 77 25 2c 31 38 2c c3 28 | 73 63 61 29 2c 30 29 3a |w%,18,.(|sca),0):|
|00000b50| 63 68 61 6e 67 65 64 25 | 3d b9 0d 04 4c 0f 20 c9 |changed%|=...L. .|
|00000b60| 20 69 63 6f 6e 25 3d 31 | 32 0d 04 56 4e 20 66 72 | icon%=1|2..VN fr|
|00000b70| 65 71 3d 66 72 65 71 2a | 30 2e 35 3a 63 68 61 6e |eq=freq*|0.5:chan|
|00000b80| 67 65 64 25 3d b9 3a f2 | 69 63 6f 6e 5f 70 75 74 |ged%=.:.|icon_put|
|00000b90| 64 61 74 61 28 71 25 2c | 6d 61 69 6e 77 25 2c 31 |data(q%,|mainw%,1|
|00000ba0| 37 2c c3 28 66 72 65 71 | 29 2c 30 29 3a 63 68 61 |7,.(freq|),0):cha|
|00000bb0| 6e 67 65 64 25 3d b9 0d | 04 60 0f 20 c9 20 69 63 |nged%=..|.`. . ic|
|00000bc0| 6f 6e 25 3d 31 33 0d 04 | 6a 4c 20 66 72 65 71 3d |on%=13..|jL freq=|
|00000bd0| 66 72 65 71 2a 32 3a 63 | 68 61 6e 67 65 64 25 3d |freq*2:c|hanged%=|
|00000be0| b9 3a f2 69 63 6f 6e 5f | 70 75 74 64 61 74 61 28 |.:.icon_|putdata(|
|00000bf0| 71 25 2c 6d 61 69 6e 77 | 25 2c 31 37 2c c3 28 66 |q%,mainw|%,17,.(f|
|00000c00| 72 65 71 29 2c 30 29 3a | 63 68 61 6e 67 65 64 25 |req),0):|changed%|
|00000c10| 3d b9 0d 04 74 0f 20 c9 | 20 69 63 6f 6e 25 3d 31 |=...t. .| icon%=1|
|00000c20| 34 0d 04 7e 23 20 73 74 | 65 70 25 2d 3d 31 3a e7 |4..~# st|ep%-=1:.|
|00000c30| 20 73 74 65 70 25 3d 30 | 3a 20 73 74 65 70 25 3d | step%=0|: step%=|
|00000c40| 31 3a ef 37 0d 04 88 35 | f2 69 63 6f 6e 5f 70 75 |1:.7...5|.icon_pu|
|00000c50| 74 64 61 74 61 28 71 25 | 2c 6d 61 69 6e 77 25 2c |tdata(q%|,mainw%,|
|00000c60| 31 35 2c c3 28 73 74 65 | 70 25 29 2c 30 29 3a 63 |15,.(ste|p%),0):c|
|00000c70| 68 61 6e 67 65 64 25 3d | b9 0d 04 92 0f 20 c9 20 |hanged%=|..... . |
|00000c80| 69 63 6f 6e 25 3d 31 36 | 0d 04 9c 3f 20 73 74 65 |icon%=16|...? ste|
|00000c90| 70 25 2b 3d 31 3a f2 69 | 63 6f 6e 5f 70 75 74 64 |p%+=1:.i|con_putd|
|00000ca0| 61 74 61 28 71 25 2c 6d | 61 69 6e 77 25 2c 31 35 |ata(q%,m|ainw%,15|
|00000cb0| 2c c3 28 73 74 65 70 25 | 29 2c 30 29 3a 63 68 61 |,.(step%|),0):cha|
|00000cc0| 6e 67 65 64 25 3d b9 0d | 04 a6 0f 20 c9 20 69 63 |nged%=..|... . ic|
|00000cd0| 6f 6e 25 3d 32 30 0d 04 | b0 27 20 64 31 25 3d b9 |on%=20..|.' d1%=.|
|00000ce0| 3a 64 32 25 3d a3 3a 64 | 33 25 3d a3 3a 64 34 25 |:d2%=.:d|3%=.:d4%|
|00000cf0| 3d a3 3a 63 68 61 6e 67 | 65 64 25 3d b9 0d 04 ba |=.:chang|ed%=....|
|00000d00| 0f 20 c9 20 69 63 6f 6e | 25 3d 32 31 0d 04 c4 27 |. . icon|%=21...'|
|00000d10| 20 64 31 25 3d a3 3a 64 | 32 25 3d b9 3a 64 33 25 | d1%=.:d|2%=.:d3%|
|00000d20| 3d a3 3a 64 34 25 3d a3 | 3a 63 68 61 6e 67 65 64 |=.:d4%=.|:changed|
|00000d30| 25 3d b9 0d 04 ce 0f 20 | c9 20 69 63 6f 6e 25 3d |%=..... |. icon%=|
|00000d40| 32 32 0d 04 d8 27 20 64 | 31 25 3d a3 3a 64 32 25 |22...' d|1%=.:d2%|
|00000d50| 3d a3 3a 64 33 25 3d b9 | 3a 64 34 25 3d a3 3a 63 |=.:d3%=.|:d4%=.:c|
|00000d60| 68 61 6e 67 65 64 25 3d | b9 0d 04 e2 0f 20 c9 20 |hanged%=|..... . |
|00000d70| 69 63 6f 6e 25 3d 32 33 | 0d 04 ec 27 20 64 31 25 |icon%=23|...' d1%|
|00000d80| 3d a3 3a 64 32 25 3d a3 | 3a 64 33 25 3d a3 3a 64 |=.:d2%=.|:d3%=.:d|
|00000d90| 34 25 3d b9 3a 63 68 61 | 6e 67 65 64 25 3d b9 0d |4%=.:cha|nged%=..|
|00000da0| 04 f6 06 20 cb 0d 05 00 | 10 20 c9 20 62 75 74 74 |... ....|. . butt|
|00000db0| 6f 6e 25 3d 32 0d 05 0a | 10 20 f2 6d 65 6e 75 5f |on%=2...|. .menu_|
|00000dc0| 6d 61 69 6e 77 0d 05 14 | 06 20 cb 0d 05 1e 06 20 |mainw...|. ..... |
|00000dd0| e1 0d 05 28 18 dd f2 64 | 6f 5f 62 61 63 6b 67 72 |...(...d|o_backgr|
|00000de0| 6f 75 6e 64 5f 74 61 73 | 6b 0d 05 32 26 e7 20 63 |ound_tas|k..2&. c|
|00000df0| 68 61 6e 67 65 64 25 3d | b9 20 f2 72 65 64 72 61 |hanged%=|. .redra|
|00000e00| 77 77 69 6e 64 6f 77 28 | 6d 61 69 6e 77 25 29 0d |wwindow(|mainw%).|
|00000e10| 05 3c 05 e1 0d 05 46 1b | dd f2 72 65 64 72 61 77 |.<....F.|..redraw|
|00000e20| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 29 0d |window(h|andle%).|
|00000e30| 05 50 0b ea 20 76 6f 69 | 64 25 0d 05 5a 10 71 25 |.P.. voi|d%..Z.q%|
|00000e40| 21 30 3d 68 61 6e 64 6c | 65 25 0d 05 64 27 c8 99 |!0=handl|e%..d'..|
|00000e50| 20 22 57 69 6d 70 5f 52 | 65 64 72 61 77 57 69 6e | "Wimp_R|edrawWin|
|00000e60| 64 6f 77 22 2c 30 2c 71 | 25 20 b8 20 6d 6f 72 65 |dow",0,q|% . more|
|00000e70| 25 0d 05 6e 1c f2 6c 77 | 61 6f 72 69 67 69 6e 28 |%..n..lw|aorigin(|
|00000e80| 71 25 2b 34 2c 78 30 25 | 2c 79 30 25 29 0d 05 78 |q%+4,x0%|,y0%)..x|
|00000e90| 0c c8 95 20 6d 6f 72 65 | 25 0d 05 82 16 20 20 f2 |... more|%.... .|
|00000ea0| 64 72 61 77 3a 63 68 61 | 6e 67 65 64 25 3d a3 0d |draw:cha|nged%=..|
|00000eb0| 05 8c 0e 20 20 f2 6e 65 | 77 76 61 6c 73 0d 05 96 |... .ne|wvals...|
|00000ec0| 12 20 20 c8 8e 20 68 61 | 6e 64 6c 65 25 20 ca 0d |. .. ha|ndle% ..|
|00000ed0| 05 a0 07 20 20 cb 0d 05 | aa 29 20 20 c8 99 20 22 |... ...|.) .. "|
|00000ee0| 57 69 6d 70 5f 47 65 74 | 52 65 63 74 61 6e 67 6c |Wimp_Get|Rectangl|
|00000ef0| 65 22 2c 30 2c 71 25 20 | b8 20 6d 6f 72 65 25 0d |e",0,q% |. more%.|
|00000f00| 05 b4 05 ce 0d 05 be 05 | e1 0d 05 c8 19 dd a4 6f |........|.......o|
|00000f10| 6b 74 6f 63 6c 6f 73 65 | 77 28 68 61 6e 64 6c 65 |ktoclose|w(handle|
|00000f20| 25 29 0d 05 d2 0f ea 20 | 73 68 75 74 74 69 6e 67 |%)..... |shutting|
|00000f30| 25 0d 05 dc 0f 73 68 75 | 74 74 69 6e 67 25 3d b9 |%....shu|tting%=.|
|00000f40| 0d 05 e6 0e 3d 73 68 75 | 74 74 69 6e 67 25 0d 05 |....=shu|tting%..|
|00000f50| f0 0e dd f2 6b 65 79 70 | 72 65 73 73 0d 05 fa 09 |....keyp|ress....|
|00000f60| ea 20 69 63 25 0d 06 04 | 10 e7 20 71 25 21 34 3c |. ic%...|.. q%!4<|
|00000f70| 3e 2d 31 20 8c 0d 06 0e | 29 20 20 c8 99 20 22 57 |>-1 ....|) .. "W|
|00000f80| 69 6d 70 5f 47 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_GetC|aretPosi|
|00000f90| 74 69 6f 6e 22 2c 2c 6d | 73 67 62 6c 6b 25 0d 06 |tion",,m|sgblk%..|
|00000fa0| 18 13 20 20 69 63 25 3d | 6d 73 67 62 6c 6b 25 21 |.. ic%=|msgblk%!|
|00000fb0| 34 0d 06 22 10 20 20 c8 | 8e 20 71 25 21 32 34 20 |4..". .|. q%!24 |
|00000fc0| ca 0d 06 2c 27 20 20 20 | 20 c9 20 32 37 20 8c 20 |...,' | . 27 . |
|00000fd0| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|00000fe0| 65 6e 75 22 2c 2c 2d 31 | 0d 06 36 07 20 20 7f 0d |enu",,-1|..6. ..|
|00000ff0| 06 40 10 20 20 20 c8 8e | 20 71 25 21 30 20 ca 0d |.@. ..| q%!0 ..|
|00001000| 06 4a 2d 20 20 20 20 c9 | 20 6d 61 69 6e 77 25 20 |.J- .| mainw% |
|00001010| 20 3a f2 6b 65 79 70 72 | 65 73 73 5f 6d 61 69 6e | :.keypr|ess_main|
|00001020| 77 28 69 63 25 2c 71 25 | 21 32 34 29 0d 06 54 04 |w(ic%,q%|!24)..T.|
|00001030| 0d 06 5e 09 20 20 20 20 | cb 0d 06 68 07 20 20 cb |..^. |...h. .|
|00001040| 0d 06 72 05 cd 0d 06 7c | 04 0d 06 86 05 e1 0d 06 |..r....||........|
|00001050| 90 16 dd a4 6d 65 6e 75 | 73 65 6c 65 63 74 5f 73 |....menu|select_s|
|00001060| 69 63 6f 6e 0d 06 9a 14 | ea 20 6c 65 76 65 6c 30 |icon....|. level0|
|00001070| 2c 62 75 74 74 6f 6e 25 | 0d 06 a4 0f 6c 65 76 65 |,button%|....leve|
|00001080| 6c 30 3d 71 25 21 30 0d | 06 ae 20 c8 99 20 22 57 |l0=q%!0.|.. .. "W|
|00001090| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|000010a0| 66 6f 22 2c 2c 71 25 0d | 06 b8 10 62 75 74 74 6f |fo",,q%.|...butto|
|000010b0| 6e 25 3d 71 25 21 38 0d | 06 c2 0f c8 8e 20 6c 65 |n%=q%!8.|..... le|
|000010c0| 76 65 6c 30 20 ca 0d 06 | cc 09 20 20 c9 20 30 0d |vel0 ...|.. . 0.|
|000010d0| 06 d6 09 20 20 c9 20 31 | 0d 06 e0 13 20 20 63 6c |... . 1|.... cl|
|000010e0| 6f 73 65 64 6f 77 6e 20 | 3d 20 b9 0d 06 ea 05 cb |osedown |= ......|
|000010f0| 0d 06 f4 06 3d 30 0d 06 | fe 04 0d 07 08 16 dd a4 |....=0..|........|
|00001100| 6d 65 6e 75 73 65 6c 65 | 63 74 5f 6d 61 69 6e 77 |menusele|ct_mainw|
|00001110| 0d 07 12 1b ea 20 6c 65 | 76 65 6c 30 2c 6c 65 76 |..... le|vel0,lev|
|00001120| 65 6c 31 2c 62 75 74 74 | 6f 6e 25 0d 07 1c 0f 6c |el1,butt|on%....l|
|00001130| 65 76 65 6c 30 3d 71 25 | 21 30 0d 07 26 0f 6c 65 |evel0=q%|!0..&.le|
|00001140| 76 65 6c 31 3d 71 25 21 | 34 0d 07 30 20 c8 99 20 |vel1=q%!|4..0 .. |
|00001150| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00001160| 49 6e 66 6f 22 2c 2c 71 | 25 0d 07 3a 10 62 75 74 |Info",,q|%..:.but|
|00001170| 74 6f 6e 25 3d 71 25 21 | 38 0d 07 44 0f c8 8e 20 |ton%=q%!|8..D... |
|00001180| 6c 65 76 65 6c 30 20 ca | 0d 07 4e 09 20 20 c9 20 |level0 .|..N. . |
|00001190| 30 0d 07 58 09 20 20 c9 | 20 31 0d 07 62 10 20 63 |0..X. .| 1..b. c|
|000011a0| 6c 6f 73 65 64 6f 77 6e | 3d b9 0d 07 6c 05 cb 0d |losedown|=...l...|
|000011b0| 07 76 06 3d 30 0d 07 80 | 04 0d 07 8a 10 dd f2 6d |.v.=0...|.......m|
|000011c0| 65 6e 75 5f 6d 61 69 6e | 77 0d 07 94 08 ea 20 6e |enu_main|w..... n|
|000011d0| 6f 0d 07 9e 11 6e 6f 3d | 30 3a c8 97 20 78 2c 79 |o....no=|0:.. x,y|
|000011e0| 2c 62 0d 07 a8 3d f2 64 | 65 66 69 6e 65 5f 6d 65 |,b...=.d|efine_me|
|000011f0| 6e 75 5f 74 65 78 74 28 | 22 49 6e 66 6f 22 2c 6e |nu_text(|"Info",n|
|00001200| 6f 2c 30 2c 30 2c 30 2c | 30 2c 26 31 30 30 32 31 |o,0,0,0,|0,&10021|
|00001210| 2c 69 6e 66 6f 25 2c 30 | 29 3a 6e 6f 2b 3d 31 0d |,info%,0|):no+=1.|
|00001220| 07 b2 3a f2 64 65 66 69 | 6e 65 5f 6d 65 6e 75 5f |..:.defi|ne_menu_|
|00001230| 74 65 78 74 28 22 51 75 | 69 74 22 2c 6e 6f 2c 30 |text("Qu|it",no,0|
|00001240| 2c 30 2c 30 2c 30 2c 26 | 31 30 30 32 31 2c 30 2c |,0,0,0,&|10021,0,|
|00001250| 2d 31 29 3a 6e 6f 2b 3d | 31 0d 07 bc 32 f2 63 72 |-1):no+=|1...2.cr|
|00001260| 65 61 74 65 5f 6d 65 6e | 75 28 22 46 6f 75 72 69 |eate_men|u("Fouri|
|00001270| 65 72 22 2c 6e 6f 2c 32 | 31 30 2c 78 2d 36 34 2c |er",no,2|10,x-64,|
|00001280| 39 36 2b 28 6e 6f 2a 34 | 30 29 29 0d 07 c6 0e 6d |96+(no*4|0))....m|
|00001290| 65 6e 75 5f 6e 72 25 3d | 30 0d 07 d0 16 63 6c 61 |enu_nr%=|0....cla|
|000012a0| 69 6d 6d 65 6e 75 24 3d | 22 6d 61 69 6e 77 22 0d |immenu$=|"mainw".|
|000012b0| 07 da 05 e1 0d 07 e4 10 | dd f2 6d 65 6e 75 5f 73 |........|..menu_s|
|000012c0| 69 63 6f 6e 0d 07 ee 11 | 6e 6f 3d 30 3a c8 97 20 |icon....|no=0:.. |
|000012d0| 78 2c 79 2c 62 0d 07 f8 | 3d f2 64 65 66 69 6e 65 |x,y,b...|=.define|
|000012e0| 5f 6d 65 6e 75 5f 74 65 | 78 74 28 22 49 6e 66 6f |_menu_te|xt("Info|
|000012f0| 22 2c 6e 6f 2c 30 2c 30 | 2c 30 2c 30 2c 26 31 30 |",no,0,0|,0,0,&10|
|00001300| 30 32 31 2c 69 6e 66 6f | 25 2c 30 29 3a 6e 6f 2b |021,info|%,0):no+|
|00001310| 3d 31 0d 08 02 3a f2 64 | 65 66 69 6e 65 5f 6d 65 |=1...:.d|efine_me|
|00001320| 6e 75 5f 74 65 78 74 28 | 22 51 75 69 74 22 2c 6e |nu_text(|"Quit",n|
|00001330| 6f 2c 30 2c 30 2c 30 2c | 30 2c 26 31 30 30 32 31 |o,0,0,0,|0,&10021|
|00001340| 2c 30 2c 2d 31 29 3a 6e | 6f 2b 3d 31 0d 08 0c 32 |,0,-1):n|o+=1...2|
|00001350| f2 63 72 65 61 74 65 5f | 6d 65 6e 75 28 22 46 6f |.create_|menu("Fo|
|00001360| 75 72 69 65 72 22 2c 6e | 6f 2c 32 31 30 2c 78 2d |urier",n|o,210,x-|
|00001370| 36 34 2c 39 36 2b 28 6e | 6f 2a 34 30 29 29 0d 08 |64,96+(n|o*40))..|
|00001380| 16 0e 6d 65 6e 75 5f 6e | 72 25 3d 30 0d 08 20 15 |..menu_n|r%=0.. .|
|00001390| 63 6c 61 69 6d 6d 65 6e | 75 24 3d 22 78 66 65 72 |claimmen|u$="xfer|
|000013a0| 22 0d 08 2a 05 e1 0d 08 | 34 16 dd f2 77 68 69 63 |"..*....|4...whic|
|000013b0| 68 6d 65 6e 75 28 6d 65 | 6e 75 24 29 0d 08 3e 0b |hmenu(me|nu$)..>.|
|000013c0| ea 20 76 6f 69 64 25 0d | 08 48 0e c8 8e 20 6d 65 |. void%.|.H... me|
|000013d0| 6e 75 24 20 ca 0d 08 52 | 28 20 20 c9 20 22 6d 61 |nu$ ...R|( . "ma|
|000013e0| 69 6e 77 22 20 3a 76 6f | 69 64 25 3d a4 6d 65 6e |inw" :vo|id%=.men|
|000013f0| 75 73 65 6c 65 63 74 5f | 6d 61 69 6e 77 0d 08 5c |uselect_|mainw..\|
|00001400| 27 20 20 c9 20 22 78 66 | 65 72 22 20 3a 76 6f 69 |' . "xf|er" :voi|
|00001410| 64 25 3d a4 6d 65 6e 75 | 73 65 6c 65 63 74 5f 73 |d%=.menu|select_s|
|00001420| 69 63 6f 6e 0d 08 66 05 | cb 0d 08 70 05 e1 0d 08 |icon..f.|...p....|
|00001430| 7a 12 dd f2 66 69 6c 65 | 5f 63 68 61 6e 67 65 64 |z...file|_changed|
|00001440| 0d 08 84 05 e1 0d 08 8e | 26 dd f2 6f 70 65 6e 77 |........|&..openw|
|00001450| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 25 2c 66 75 |indow(ha|ndle%,fu|
|00001460| 6c 6c 25 2c 66 72 6f 6e | 74 25 29 0d 08 98 10 71 |ll%,fron|t%)....q|
|00001470| 25 21 30 3d 68 61 6e 64 | 6c 65 25 0d 08 a2 2d e7 |%!0=hand|le%...-.|
|00001480| 20 ac 20 66 75 6c 6c 25 | 20 8c 20 c8 99 20 22 57 | . full%| . .. "W|
|00001490| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|000014a0| 74 65 22 2c 30 2c 71 25 | 0d 08 ac 17 e7 20 66 72 |te",0,q%|..... fr|
|000014b0| 6f 6e 74 25 20 8c 20 71 | 25 21 32 38 3d 2d 31 0d |ont% . q|%!28=-1.|
|000014c0| 08 b6 1d c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |..... "W|imp_Open|
|000014d0| 57 69 6e 64 6f 77 22 2c | 30 2c 71 25 0d 08 c0 05 |Window",|0,q%....|
|000014e0| e1 0d 08 ca 04 0d 08 d4 | 1a dd f2 63 6c 6f 73 65 |........|...close|
|000014f0| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 29 0d |window(h|andle%).|
|00001500| 08 de 1c e7 20 a4 6f 6b | 74 6f 63 6c 6f 73 65 77 |.... .ok|toclosew|
|00001510| 28 68 61 6e 64 6c 65 25 | 29 20 8c 0d 08 e8 12 20 |(handle%|) ..... |
|00001520| 20 71 25 21 30 3d 68 61 | 6e 64 6c 65 25 0d 08 f2 | q%!0=ha|ndle%...|
|00001530| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 | .. "W|imp_Clos|
|00001540| 65 57 69 6e 64 6f 77 22 | 2c 30 2c 71 25 0d 08 fc |eWindow"|,0,q%...|
|00001550| 05 cd 0d 09 06 05 e1 0d | 09 10 04 0d 09 1a 11 dd |........|........|
|00001560| a4 70 6f 6c 6c 28 6d 61 | 73 6b 25 29 0d 09 24 20 |.poll(ma|sk%)..$ |
|00001570| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 6d |.. "Wimp|_Poll",m|
|00001580| 61 73 6b 25 2c 71 25 20 | b8 20 61 25 0d 09 2e 07 |ask%,q% |. a%....|
|00001590| 3d 61 25 0d 09 38 04 0d | 09 42 13 dd f2 61 63 74 |=a%..8..|.B...act|
|000015a0| 69 6f 6e 28 65 76 6e 74 | 25 29 0d 09 4c 04 0d 09 |ion(evnt|%)..L...|
|000015b0| 56 0e c8 8e 20 65 76 6e | 74 25 20 ca 0d 09 60 1d |V... evn|t% ...`.|
|000015c0| 20 20 c9 20 30 3a f2 64 | 6f 5f 62 61 63 6b 67 72 | . 0:.d|o_backgr|
|000015d0| 6f 75 6e 64 5f 74 61 73 | 6b 0d 09 6a 1d 20 20 c9 |ound_tas|k..j. .|
|000015e0| 20 31 3a f2 72 65 64 72 | 61 77 77 69 6e 64 6f 77 | 1:.redr|awwindow|
|000015f0| 28 71 25 21 30 29 0d 09 | 74 1f 20 20 c9 20 32 3a |(q%!0)..|t. . 2:|
|00001600| f2 6f 70 65 6e 77 69 6e | 64 6f 77 28 71 25 21 30 |.openwin|dow(q%!0|
|00001610| 2c b9 2c 30 29 0d 09 7e | 1c 20 20 c9 20 33 3a f2 |,.,0)..~|. . 3:.|
|00001620| 63 6c 6f 73 65 77 69 6e | 64 6f 77 28 71 25 21 30 |closewin|dow(q%!0|
|00001630| 29 0d 09 88 0a 20 20 c9 | 20 34 3a 0d 09 92 0a 20 |).... .| 4:.... |
|00001640| 20 c9 20 35 3a 0d 09 9c | 37 20 20 c9 20 36 3a f2 | . 5:...|7 . 6:.|
|00001650| 63 6c 69 63 6b 77 69 6e | 64 6f 77 28 21 71 25 2c |clickwin|dow(!q%,|
|00001660| 71 25 21 34 2c 71 25 21 | 38 2c 71 25 21 31 32 2c |q%!4,q%!|8,q%!12,|
|00001670| 71 25 21 31 36 2c 71 25 | 21 32 30 29 0d 09 a6 14 |q%!16,q%|!20)....|
|00001680| 20 20 c9 20 37 3a 63 68 | 61 6e 67 65 64 25 3d b9 | . 7:ch|anged%=.|
|00001690| 0d 09 b0 13 20 20 c9 20 | 38 3a f2 6b 65 79 70 72 |.... . |8:.keypr|
|000016a0| 65 73 73 0d 09 ba 33 20 | 20 c9 20 39 3a e7 20 63 |ess...3 | . 9:. c|
|000016b0| 6c 61 69 6d 6d 65 6e 75 | 24 3c 3e 22 22 20 8c 20 |laimmenu|$<>"" . |
|000016c0| f2 77 68 69 63 68 6d 65 | 6e 75 28 63 6c 61 69 6d |.whichme|nu(claim|
|000016d0| 6d 65 6e 75 24 29 0d 09 | c4 0e 20 20 c9 20 31 37 |menu$)..|.. . 17|
|000016e0| 2c 31 38 3a 0d 09 ce 05 | cb 0d 09 d8 05 e1 0d 09 |,18:....|........|
|000016f0| e2 04 0d 09 ec 11 dd f2 | 72 65 63 65 69 76 65 28 |........|receive(|
|00001700| 71 25 29 0d 09 f6 0e c8 | 8e 20 71 25 21 31 36 20 |q%).....|. q%!16 |
|00001710| ca 0d 0a 00 37 c9 20 30 | 20 20 20 20 3a 24 71 25 |....7. 0| :$q%|
|00001720| 3d 22 54 41 53 4b 22 3a | c8 99 20 22 57 69 6d 70 |="TASK":|.. "Wimp|
|00001730| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 74 61 73 6b |_CloseDo|wn",task|
|00001740| 25 2c 71 25 21 30 3a e0 | 0d 0a 0a 05 cb 0d 0a 14 |%,q%!0:.|........|
|00001750| 05 e1 0d 0a 1e 04 0d 0a | 28 1c dd f2 6c 77 61 6f |........|(...lwao|
|00001760| 72 69 67 69 6e 28 62 2c | f8 20 78 25 2c f8 20 79 |rigin(b,|. x%,. y|
|00001770| 25 29 0d 0a 32 1c 78 25 | 3d 62 21 30 2d 62 21 31 |%)..2.x%|=b!0-b!1|
|00001780| 36 3a 79 25 3d 62 21 31 | 32 2d 62 21 32 30 0d 0a |6:y%=b!1|2-b!20..|
|00001790| 3c 05 e1 0d 0a 46 04 0d | 0a 50 48 dd a4 69 63 6f |<....F..|.PH..ico|
|000017a0| 6e 5f 63 72 65 61 74 65 | 28 77 69 6e 64 6f 77 25 |n_create|(window%|
|000017b0| 2c 6d 69 6e 78 25 2c 6d | 69 6e 79 25 2c 77 69 64 |,minx%,m|iny%,wid|
|000017c0| 74 68 25 2c 68 65 69 67 | 68 74 25 2c 66 67 25 2c |th%,heig|ht%,fg%,|
|000017d0| 62 67 25 2c 66 6c 67 25 | 2c 64 61 74 61 24 29 0d |bg%,flg%|,data$).|
|000017e0| 0a 5a 08 ea 20 69 25 0d | 0a 64 10 71 25 21 30 3d |.Z.. i%.|.d.q%!0=|
|000017f0| 77 69 6e 64 6f 77 25 0d | 0a 6e 19 71 25 21 34 3d |window%.|.n.q%!4=|
|00001800| 6d 69 6e 78 25 3a 71 25 | 21 38 3d 6d 69 6e 79 25 |minx%:q%|!8=miny%|
|00001810| 0d 0a 78 2a 71 25 21 31 | 32 3d 6d 69 6e 78 25 2b |..x*q%!1|2=minx%+|
|00001820| 77 69 64 74 68 25 3a 71 | 25 21 31 36 3d 6d 69 6e |width%:q|%!16=min|
|00001830| 79 25 2b 68 65 69 67 68 | 74 25 0d 0a 82 22 71 25 |y%+heigh|t%..."q%|
|00001840| 21 32 30 3d 66 6c 67 25 | 20 84 20 62 67 25 3c 3c |!20=flg%| . bg%<<|
|00001850| 32 38 20 84 20 66 67 25 | 3c 3c 32 34 0d 0a 8c 14 |28 . fg%|<<24....|
|00001860| e7 20 71 25 21 32 30 20 | 80 20 26 31 30 30 20 8c |. q%!20 |. &100 .|
|00001870| 0d 0a 96 14 20 20 69 25 | 3d a7 64 61 74 61 24 2c |.... i%|=.data$,|
|00001880| 22 2c 22 29 0d 0a a0 1b | 20 20 71 25 21 32 34 3d |",")....| q%!24=|
|00001890| a0 28 c0 64 61 74 61 24 | 2c 69 25 2d 31 29 29 0d |.(.data$|,i%-1)).|
|000018a0| 0a aa 0e 20 20 71 25 21 | 32 38 3d 2d 31 0d 0a b4 |... q%!|28=-1...|
|000018b0| 1b 20 20 71 25 21 33 32 | 3d a0 28 c1 64 61 74 61 |. q%!32|=.(.data|
|000018c0| 24 2c 69 25 2b 31 29 29 | 0d 0a be 05 cc 0d 0a c8 |$,i%+1))|........|
|000018d0| 17 24 28 71 25 2b 32 34 | 29 3d c0 64 61 74 61 24 |.$(q%+24|)=.data$|
|000018e0| 2c 31 31 29 0d 0a d2 05 | cd 0d 0a dc 22 c8 99 20 |,11)....|....".. |
|000018f0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00001900| 22 2c 30 2c 71 25 20 b8 | 20 69 25 0d 0a e6 07 3d |",0,q% .| i%....=|
|00001910| 69 25 0d 0a f0 04 0d 0a | fa 23 dd f2 69 63 6f 6e |i%......|.#..icon|
|00001920| 5f 64 65 73 65 6c 65 63 | 74 28 68 61 6e 64 6c 65 |_deselec|t(handle|
|00001930| 25 2c 69 63 6f 6e 68 25 | 29 0d 0b 04 12 e7 20 69 |%,iconh%|)..... i|
|00001940| 63 6f 6e 68 25 3c 3e 2d | 31 20 8c 0d 0b 0e 1e 20 |conh%<>-|1 ..... |
|00001950| 20 71 25 21 30 3d 68 61 | 6e 64 6c 65 25 3a 71 25 | q%!0=ha|ndle%:q%|
|00001960| 21 34 3d 69 63 6f 6e 68 | 25 0d 0b 18 1b 20 20 71 |!4=iconh|%.... q|
|00001970| 25 21 38 3d 26 32 30 30 | 30 30 30 3a 71 25 21 31 |%!8=&200|000:q%!1|
|00001980| 32 3d 26 30 0d 0b 22 20 | 20 20 c8 99 20 22 57 69 |2=&0.." | .. "Wi|
|00001990| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|000019a0| 2c 2c 71 25 0d 0b 2c 05 | cd 0d 0b 36 05 e1 0d 0b |,,q%..,.|...6....|
|000019b0| 40 04 0d 0b 4a 26 dd f2 | 69 63 6f 6e 5f 70 75 74 |@...J&..|icon_put|
|000019c0| 64 61 74 61 28 62 2c 77 | 68 25 2c 69 68 25 2c 74 |data(b,w|h%,ih%,t|
|000019d0| 65 78 74 24 2c 72 64 29 | 0d 0b 54 13 62 21 30 3d |ext$,rd)|..T.b!0=|
|000019e0| 77 68 25 3a 62 21 34 3d | 69 68 25 0d 0b 5e 1d c8 |wh%:b!4=|ih%..^..|
|000019f0| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00001a00| 74 61 74 65 22 2c 2c 62 | 0d 0b 68 1b c8 99 20 22 |tate",,b|..h... "|
|00001a10| 57 69 6d 70 5f 44 65 6c | 65 74 65 49 63 6f 6e 22 |Wimp_Del|eteIcon"|
|00001a20| 2c 2c 62 0d 0b 72 1e 62 | 21 34 3d 77 68 25 3a 24 |,,b..r.b|!4=wh%:$|
|00001a30| 28 62 21 32 38 29 3d 74 | 65 78 74 24 3a 62 2b 3d |(b!28)=t|ext$:b+=|
|00001a40| 34 0d 0b 7c 1b c8 99 20 | 22 57 69 6d 70 5f 43 72 |4..|... |"Wimp_Cr|
|00001a50| 65 61 74 65 49 63 6f 6e | 22 2c 2c 62 0d 0b 86 36 |eateIcon|",,b...6|
|00001a60| e7 20 72 64 20 8c 20 c8 | 99 20 22 57 69 6d 70 5f |. rd . .|. "Wimp_|
|00001a70| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 62 21 30 |ForceRed|raw",b!0|
|00001a80| 2c 62 21 34 2c 62 21 38 | 2c 62 21 31 32 2c 62 21 |,b!4,b!8|,b!12,b!|
|00001a90| 31 36 0d 0b 90 08 62 2d | 3d 34 0d 0b 9a 05 e1 0d |16....b-|=4......|
|00001aa0| 0b a4 04 0d 0b ae 35 dd | f2 69 63 6f 6e 5f 70 75 |......5.|.icon_pu|
|00001ab0| 74 64 61 74 61 28 71 25 | 2c 77 68 61 6e 64 6c 65 |tdata(q%|,whandle|
|00001ac0| 25 2c 69 68 61 6e 64 6c | 65 25 2c 64 61 74 61 24 |%,ihandl|e%,data$|
|00001ad0| 2c 72 65 64 72 61 77 29 | 0d 0b b8 11 71 25 21 30 |,redraw)|....q%!0|
|00001ae0| 3d 77 68 61 6e 64 6c 65 | 25 0d 0b c2 11 71 25 21 |=whandle|%....q%!|
|00001af0| 34 3d 69 68 61 6e 64 6c | 65 25 0d 0b cc 1e c8 99 |4=ihandl|e%......|
|00001b00| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00001b10| 61 74 65 22 2c 2c 71 25 | 0d 0b d6 12 24 28 71 25 |ate",,q%|....$(q%|
|00001b20| 21 32 38 29 3d 64 61 74 | 61 24 0d 0b e0 0e e7 20 |!28)=dat|a$..... |
|00001b30| 72 65 64 72 61 77 20 8c | 0d 0b ea 3b 20 20 c8 99 |redraw .|...; ..|
|00001b40| 20 22 57 69 6d 70 5f 46 | 6f 72 63 65 52 65 64 72 | "Wimp_F|orceRedr|
|00001b50| 61 77 22 2c 77 68 61 6e | 64 6c 65 25 2c 71 25 21 |aw",whan|dle%,q%!|
|00001b60| 38 2c 71 25 21 31 32 2c | 71 25 21 31 36 2c 71 25 |8,q%!12,|q%!16,q%|
|00001b70| 21 32 30 0d 0b f4 05 cd | 0d 0b fe 05 e1 0d 0c 08 |!20.....|........|
|00001b80| 04 0d 0c 12 2d dd f2 69 | 63 6f 6e 5f 73 65 74 62 |....-..i|con_setb|
|00001b90| 67 63 6f 6c 6f 75 72 28 | 62 2c 77 68 61 6e 64 6c |gcolour(|b,whandl|
|00001ba0| 65 25 2c 69 63 6f 6e 25 | 2c 63 6f 6c 25 29 0d 0c |e%,icon%|,col%)..|
|00001bb0| 1c 35 21 62 3d 77 68 61 | 6e 64 6c 65 25 3a 62 21 |.5!b=wha|ndle%:b!|
|00001bc0| 34 3d 69 63 6f 6e 25 3a | 62 21 38 3d 63 6f 6c 25 |4=icon%:|b!8=col%|
|00001bd0| 3c 3c 32 38 3a 62 21 31 | 32 3d 26 46 30 30 30 30 |<<28:b!1|2=&F0000|
|00001be0| 30 30 30 0d 0c 26 1e c8 | 99 20 22 57 69 6d 70 5f |000..&..|. "Wimp_|
|00001bf0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 30 2c |SetIconS|tate",0,|
|00001c00| 62 0d 0c 30 05 e1 0d 0c | 3a 04 0d 0c 44 2d dd f2 |b..0....|:...D-..|
|00001c10| 69 63 6f 6e 5f 73 65 74 | 66 67 63 6f 6c 6f 75 72 |icon_set|fgcolour|
|00001c20| 28 62 2c 77 68 61 6e 64 | 6c 65 25 2c 69 63 6f 6e |(b,whand|le%,icon|
|00001c30| 25 2c 63 6f 6c 25 29 0d | 0c 4e 35 21 62 3d 77 68 |%,col%).|.N5!b=wh|
|00001c40| 61 6e 64 6c 65 25 3a 62 | 21 34 3d 69 63 6f 6e 25 |andle%:b|!4=icon%|
|00001c50| 3a 62 21 38 3d 63 6f 6c | 25 3c 3c 32 34 3a 62 21 |:b!8=col|%<<24:b!|
|00001c60| 31 32 3d 26 30 46 30 30 | 30 30 30 30 0d 0c 58 1e |12=&0F00|0000..X.|
|00001c70| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00001c80| 53 74 61 74 65 22 2c 30 | 2c 62 0d 0c 62 05 e1 0d |State",0|,b..b...|
|00001c90| 0c 6c 04 0d 0c 76 39 dd | a4 69 63 6f 6e 5f 6e 65 |.l...v9.|.icon_ne|
|00001ca0| 77 73 70 72 69 74 65 28 | 62 2c 77 68 61 6e 64 6c |wsprite(|b,whandl|
|00001cb0| 65 25 2c 69 68 61 6e 64 | 6c 65 25 2c 6e 65 77 6e |e%,ihand|le%,newn|
|00001cc0| 61 6d 65 24 2c 72 65 64 | 72 61 77 29 0d 0c 80 1d |ame$,red|raw)....|
|00001cd0| 62 21 30 3d 77 68 61 6e | 64 6c 65 25 3a 62 21 34 |b!0=whan|dle%:b!4|
|00001ce0| 3d 69 68 61 6e 64 6c 65 | 25 0d 0c 8a 1d c8 99 20 |=ihandle|%...... |
|00001cf0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00001d00| 74 65 22 2c 2c 62 0d 0c | 94 1b c8 99 20 22 57 69 |te",,b..|.... "Wi|
|00001d10| 6d 70 5f 44 65 6c 65 74 | 65 49 63 6f 6e 22 2c 2c |mp_Delet|eIcon",,|
|00001d20| 62 0d 0c 9e 43 62 21 34 | 3d 62 21 38 3a 62 21 38 |b...Cb!4|=b!8:b!8|
|00001d30| 3d 62 21 31 32 3a 62 21 | 31 32 3d 62 21 31 36 3a |=b!12:b!|12=b!16:|
|00001d40| 62 21 31 36 3d 62 21 32 | 30 3a 62 21 32 30 3d 62 |b!16=b!2|0:b!20=b|
|00001d50| 21 32 34 3a 24 28 62 2b | 32 34 29 3d 6e 65 77 6e |!24:$(b+|24)=newn|
|00001d60| 61 6d 65 24 0d 0c a8 26 | c8 99 20 22 57 69 6d 70 |ame$...&|.. "Wimp|
|00001d70| 5f 43 72 65 61 74 65 49 | 63 6f 6e 22 2c 2c 62 20 |_CreateI|con",,b |
|00001d80| b8 20 69 68 61 6e 64 6c | 65 25 0d 0c b2 3a e7 20 |. ihandl|e%...:. |
|00001d90| 72 65 64 72 61 77 20 8c | 20 c8 99 20 22 57 69 6d |redraw .| .. "Wim|
|00001da0| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 62 |p_ForceR|edraw",b|
|00001db0| 21 30 2c 62 21 34 2c 62 | 21 38 2c 62 21 31 32 2c |!0,b!4,b|!8,b!12,|
|00001dc0| 62 21 31 36 0d 0c bc 0d | 3d 69 68 61 6e 64 6c 65 |b!16....|=ihandle|
|00001dd0| 25 0d 0c c6 04 0d 0c d0 | 28 dd a4 69 63 6f 6e 5f |%.......|(..icon_|
|00001de0| 67 65 74 64 61 74 61 28 | 71 25 2c 77 68 61 6e 64 |getdata(|q%,whand|
|00001df0| 6c 65 25 2c 69 68 61 6e | 64 6c 65 25 29 0d 0c da |le%,ihan|dle%)...|
|00001e00| 11 71 25 21 30 3d 77 68 | 61 6e 64 6c 65 25 0d 0c |.q%!0=wh|andle%..|
|00001e10| e4 11 71 25 21 34 3d 69 | 68 61 6e 64 6c 65 25 0d |..q%!4=i|handle%.|
|00001e20| 0c ee 1e c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |..... "W|imp_GetI|
|00001e30| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 71 25 0d 0c f8 |conState|",,q%...|
|00001e40| 0d 3d 24 28 71 25 21 32 | 38 29 0d 0d 02 04 0d 0d |.=$(q%!2|8)......|
|00001e50| 0c 45 dd f2 63 61 72 65 | 74 5f 73 65 74 70 6f 73 |.E..care|t_setpos|
|00001e60| 69 74 69 6f 6e 28 77 68 | 61 6e 64 6c 65 25 2c 69 |ition(wh|andle%,i|
|00001e70| 68 61 6e 64 6c 65 25 2c | 78 6f 66 66 25 2c 79 6f |handle%,|xoff%,yo|
|00001e80| 66 66 25 2c 68 65 69 67 | 68 74 25 2c 69 6e 64 65 |ff%,heig|ht%,inde|
|00001e90| 78 25 29 0d 0d 16 4b c8 | 99 20 22 57 69 6d 70 5f |x%)...K.|. "Wimp_|
|00001ea0| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|00001eb0| 22 2c 77 68 61 6e 64 6c | 65 25 2c 69 68 61 6e 64 |",whandl|e%,ihand|
|00001ec0| 6c 65 25 2c 78 6f 66 66 | 25 2c 79 6f 66 66 25 2c |le%,xoff|%,yoff%,|
|00001ed0| 68 65 69 67 68 74 25 2c | 69 6e 64 65 78 25 0d 0d |height%,|index%..|
|00001ee0| 20 05 e1 0d 0d 2a 04 0d | 0d 34 0d dd f2 6e 65 77 | ....*..|.4...new|
|00001ef0| 76 61 6c 73 0d 0d 3e 17 | 67 74 78 3d 71 25 21 33 |vals..>.|gtx=q%!3|
|00001f00| 36 3a 67 74 79 3d 71 25 | 21 34 30 0d 0d 48 15 77 |6:gty=q%|!40..H.w|
|00001f10| 62 78 3d 71 25 21 34 3a | 77 62 79 3d 71 25 21 38 |bx=q%!4:|wby=q%!8|
|00001f20| 0d 0d 52 17 77 74 78 3d | 71 25 21 31 32 3a 77 74 |..R.wtx=|q%!12:wt|
|00001f30| 79 3d 71 25 21 31 36 0d | 0d 5c 17 78 73 63 3d 71 |y=q%!16.|.\.xsc=q|
|00001f40| 25 21 32 30 3a 79 73 63 | 3d 71 25 21 32 34 0d 0d |%!20:ysc|=q%!24..|
|00001f50| 66 21 68 70 3d 77 74 78 | 2d 77 62 78 3a 76 70 3d |f!hp=wtx|-wbx:vp=|
|00001f60| 77 74 79 2d 77 62 79 3a | 65 62 78 3d 78 73 63 0d |wty-wby:|ebx=xsc.|
|00001f70| 0d 70 21 65 74 78 3d 78 | 73 63 2b 68 70 3a 65 74 |.p!etx=x|sc+hp:et|
|00001f80| 79 3d 79 73 63 3a 65 62 | 79 3d 79 73 63 2d 76 70 |y=ysc:eb|y=ysc-vp|
|00001f90| 0d 0d 7a 05 e1 0d 0d 84 | 04 0d 0d 8e 32 dd f2 64 |..z.....|....2..d|
|00001fa0| 65 66 69 6e 65 5f 6d 65 | 6e 75 5f 74 65 78 74 28 |efine_me|nu_text(|
|00001fb0| 74 65 78 74 24 2c 6e 2c | 77 2c 74 2c 64 2c 73 2c |text$,n,|w,t,d,s,|
|00001fc0| 66 6c 61 67 73 2c 73 6d | 2c 6c 29 0d 0d 98 12 74 |flags,sm|,l)....t|
|00001fd0| 65 78 74 24 28 6e 29 3d | 74 65 78 74 24 0d 0d a2 |ext$(n)=|text$...|
|00001fe0| 10 73 65 74 74 69 6e 67 | 28 6e 29 3d 30 0d 0d ac |.setting|(n)=0...|
|00001ff0| 38 e7 20 77 20 8c 20 73 | 65 74 74 69 6e 67 28 6e |8. w . s|etting(n|
|00002000| 29 3d 73 65 74 74 69 6e | 67 28 6e 29 20 84 20 26 |)=settin|g(n) . &|
|00002010| 30 34 3a 66 6c 61 67 73 | 3d 66 6c 61 67 73 20 84 |04:flags|=flags .|
|00002020| 20 26 31 30 30 0d 0d b6 | 25 e7 20 74 20 8c 20 73 | &100...|%. t . s|
|00002030| 65 74 74 69 6e 67 28 6e | 29 3d 73 65 74 74 69 6e |etting(n|)=settin|
|00002040| 67 28 6e 29 20 84 20 26 | 30 31 0d 0d c0 25 e7 20 |g(n) . &|01...%. |
|00002050| 64 20 8c 20 73 65 74 74 | 69 6e 67 28 6e 29 3d 73 |d . sett|ing(n)=s|
|00002060| 65 74 74 69 6e 67 28 6e | 29 20 84 20 26 30 32 0d |etting(n|) . &02.|
|00002070| 0d ca 25 e7 20 6c 20 8c | 20 73 65 74 74 69 6e 67 |..%. l .| setting|
|00002080| 28 6e 29 3d 73 65 74 74 | 69 6e 67 28 6e 29 20 84 |(n)=sett|ing(n) .|
|00002090| 20 26 38 30 0d 0d d4 1f | e7 20 73 20 8c 20 66 6c | &80....|. s . fl|
|000020a0| 61 67 73 3d 66 6c 61 67 | 73 20 84 20 26 34 30 30 |ags=flag|s . &400|
|000020b0| 30 30 30 0d 0d de 12 66 | 6c 61 67 73 28 6e 29 3d |000....f|lags(n)=|
|000020c0| 66 6c 61 67 73 0d 0d e8 | 11 73 75 62 6d 65 6e 75 |flags...|.submenu|
|000020d0| 28 6e 29 3d 73 6d 0d 0d | f2 05 e1 0d 0d fc 04 0d |(n)=sm..|........|
|000020e0| 0e 06 26 dd f2 63 72 65 | 61 74 65 5f 6d 65 6e 75 |..&..cre|ate_menu|
|000020f0| 28 74 69 74 6c 65 24 2c | 6e 2c 77 69 64 74 68 25 |(title$,|n,width%|
|00002100| 2c 78 2c 79 29 0d 0e 10 | 0d 6d 62 25 3d 6d 65 6e |,x,y)...|.mb%=men|
|00002110| 75 25 0d 0e 1a 0f 6d 65 | 6e 75 73 3d 30 3a 71 3d |u%....me|nus=0:q=|
|00002120| 30 0d 0e 24 05 f5 0d 0e | 2e 21 20 20 6d 65 6e 75 |0..$....|.! menu|
|00002130| 70 6f 73 28 6d 65 6e 75 | 73 29 3d 6d 62 25 3a 6d |pos(menu|s)=mb%:m|
|00002140| 65 6e 75 73 2b 3d 31 0d | 0e 38 11 20 20 24 6d 62 |enus+=1.|.8. $mb|
|00002150| 25 3d 74 69 74 6c 65 24 | 0d 0e 42 0e 20 20 6d 62 |%=title$|..B. mb|
|00002160| 25 3f 31 32 3d 37 0d 0e | 4c 0e 20 20 6d 62 25 3f |%?12=7..|L. mb%?|
|00002170| 31 33 3d 32 0d 0e 56 0e | 20 20 6d 62 25 3f 31 34 |13=2..V.| mb%?14|
|00002180| 3d 37 0d 0e 60 0e 20 20 | 6d 62 25 3f 31 35 3d 30 |=7..`. |mb%?15=0|
|00002190| 0d 0e 6a 13 20 20 6d 62 | 25 21 31 36 3d 77 69 64 |..j. mb|%!16=wid|
|000021a0| 74 68 25 0d 0e 74 27 20 | 20 6d 62 25 21 32 30 3d |th%..t' | mb%!20=|
|000021b0| 34 30 20 3a f4 20 68 65 | 69 67 68 74 20 6f 66 20 |40 :. he|ight of |
|000021c0| 6d 65 6e 75 20 69 74 65 | 6d 73 0d 0e 7e 41 20 20 |menu ite|ms..~A |
|000021d0| 6d 62 25 21 32 34 3d 30 | 20 20 3a f4 20 76 65 72 |mb%!24=0| :. ver|
|000021e0| 74 69 63 61 6c 20 67 61 | 70 20 62 65 74 77 65 65 |tical ga|p betwee|
|000021f0| 6e 20 69 74 65 6d 73 20 | 28 61 6c 73 6f 20 74 6f |n items |(also to|
|00002200| 70 20 26 20 62 6f 74 74 | 6f 6d 29 0d 0e 88 14 20 |p & bott|om).... |
|00002210| 20 69 74 65 6d 70 74 72 | 3d 6d 62 25 2b 32 38 0d | itemptr|=mb%+28.|
|00002220| 0e 92 07 20 20 f5 0d 0e | 9c 1c 20 20 20 20 69 74 |... ...|.. it|
|00002230| 65 6d 70 74 72 21 30 3d | 73 65 74 74 69 6e 67 28 |emptr!0=|setting(|
|00002240| 71 29 0d 0e a6 18 20 20 | 20 20 72 65 66 28 71 29 |q).... | ref(q)|
|00002250| 3d 69 74 65 6d 70 74 72 | 2b 34 0d 0e b0 2a 20 20 |=itemptr|+4...* |
|00002260| 20 20 69 74 65 6d 70 74 | 72 21 38 3d 66 6c 61 67 | itempt|r!8=flag|
|00002270| 73 28 71 29 20 84 20 30 | 3c 3c 32 38 20 84 20 37 |s(q) . 0|<<28 . 7|
|00002280| 3c 3c 32 34 0d 0e ba 1f | 20 20 20 20 e7 20 28 66 |<<24....| . (f|
|00002290| 6c 61 67 73 28 71 29 20 | 80 20 26 31 30 30 29 3d |lags(q) |. &100)=|
|000022a0| 30 20 8c 0d 0e c4 20 20 | 20 20 20 20 20 24 28 69 |0 .... | $(i|
|000022b0| 74 65 6d 70 74 72 2b 31 | 32 29 3d 74 65 78 74 24 |temptr+1|2)=text$|
|000022c0| 28 71 29 0d 0e ce 09 20 | 20 20 20 cc 0d 0e d8 1c |(q).... | .....|
|000022d0| 20 20 20 20 20 20 70 6f | 73 3d a7 74 65 78 74 24 | po|s=.text$|
|000022e0| 28 71 29 2c 22 28 22 29 | 0d 0e e2 28 20 20 20 20 |(q),"(")|...( |
|000022f0| 20 20 69 74 65 6d 70 74 | 72 21 31 32 3d a0 28 c0 | itempt|r!12=.(.|
|00002300| 74 65 78 74 24 28 71 29 | 2c 70 6f 73 2d 31 29 29 |text$(q)|,pos-1))|
|00002310| 0d 0e ec 17 20 20 20 20 | 20 20 69 74 65 6d 70 74 |.... | itempt|
|00002320| 72 21 31 36 3d 2d 31 0d | 0e f6 32 20 20 20 20 20 |r!16=-1.|..2 |
|00002330| 20 69 74 65 6d 70 74 72 | 21 32 30 3d a0 28 c2 74 | itemptr|!20=.(.t|
|00002340| 65 78 74 24 28 71 29 2c | a9 28 74 65 78 74 24 28 |ext$(q),|.(text$(|
|00002350| 71 29 29 2d 70 6f 73 29 | 29 0d 0f 00 09 20 20 20 |q))-pos)|).... |
|00002360| 20 cd 0d 0f 0a 18 20 20 | 20 20 69 74 65 6d 70 74 | ..... | itempt|
|00002370| 72 2b 3d 32 34 3a 71 2b | 3d 31 0d 0f 14 1e 20 20 |r+=24:q+|=1.... |
|00002380| fd 20 28 73 65 74 74 69 | 6e 67 28 71 2d 31 29 20 |. (setti|ng(q-1) |
|00002390| 80 20 26 38 30 29 3e 30 | 0d 0f 1e 11 20 20 6d 62 |. &80)>0|.... mb|
|000023a0| 25 3d 69 74 65 6d 70 74 | 72 0d 0f 28 23 20 20 e7 |%=itempt|r..(# .|
|000023b0| 20 71 3c 3e 6e 20 8c 20 | 74 69 74 6c 65 24 3d 74 | q<>n . |title$=t|
|000023c0| 65 78 74 24 28 71 29 3a | 71 2b 3d 31 0d 0f 32 09 |ext$(q):|q+=1..2.|
|000023d0| fd 20 71 3d 6e 0d 0f 3c | 04 0d 0f 46 0f e3 20 71 |. q=n..<|...F.. q|
|000023e0| 3d 30 20 b8 20 6e 2d 31 | 0d 0f 50 29 20 20 e7 20 |=0 . n-1|..P) . |
|000023f0| 73 75 62 6d 65 6e 75 28 | 71 29 3e 30 20 80 20 73 |submenu(|q)>0 . s|
|00002400| 75 62 6d 65 6e 75 28 71 | 29 3c 6d 65 6e 75 73 20 |ubmenu(q|)<menus |
|00002410| 8c 0d 0f 5a 23 20 20 20 | 20 21 72 65 66 28 71 29 |...Z# | !ref(q)|
|00002420| 3d 6d 65 6e 75 70 6f 73 | 28 73 75 62 6d 65 6e 75 |=menupos|(submenu|
|00002430| 28 71 29 29 0d 0f 64 07 | 20 20 cc 0d 0f 6e 48 20 |(q))..d.| ...nH |
|00002440| 20 20 20 21 72 65 66 28 | 71 29 3d 73 75 62 6d 65 | !ref(|q)=subme|
|00002450| 6e 75 28 71 29 3a f4 20 | 77 61 73 20 2d 31 20 69 |nu(q):. |was -1 i|
|00002460| 2e 65 2e 20 73 75 62 6d | 65 6e 75 20 64 69 73 61 |.e. subm|enu disa|
|00002470| 6c 6c 6f 77 65 64 21 20 | 54 68 69 73 20 63 68 61 |llowed! |This cha|
|00002480| 6e 67 65 0d 0f 78 3e 20 | 20 20 20 20 20 20 20 20 |nge..x> | |
|00002490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 | | :. |
|000024a0| 61 6c 6c 6f 77 73 20 61 | 20 77 69 6e 64 6f 77 20 |allows a| window |
|000024b0| 68 61 6e 64 6c 65 20 74 | 6f 20 62 65 20 75 73 65 |handle t|o be use|
|000024c0| 64 0d 0f 82 07 20 20 cd | 0d 0f 8c 07 ed 20 71 0d |d.... .|..... q.|
|000024d0| 0f 96 23 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..#.. "W|imp_Crea|
|000024e0| 74 65 4d 65 6e 75 22 2c | 2c 6d 65 6e 75 25 2c 78 |teMenu",|,menu%,x|
|000024f0| 2c 79 0d 0f a0 05 e1 0d | 0f aa 04 0d 0f b4 1d dd |,y......|........|
|00002500| f2 6f 70 65 6e 74 65 6d | 70 6c 61 74 65 66 69 6c |.opentem|platefil|
|00002510| 65 28 46 49 4c 45 24 29 | 0d 0f be 21 c8 99 20 22 |e(FILE$)|...!.. "|
|00002520| 57 69 6d 70 5f 4f 70 65 | 6e 54 65 6d 70 6c 61 74 |Wimp_Ope|nTemplat|
|00002530| 65 22 2c 2c 46 49 4c 45 | 24 0d 0f c8 05 e1 0d 0f |e",,FILE|$.......|
|00002540| d2 04 0d 0f dc 19 dd f2 | 6c 6f 61 64 74 65 6d 70 |........|loadtemp|
|00002550| 6c 61 74 65 28 6e 61 6d | 65 24 29 0d 0f e6 13 ea |late(nam|e$).....|
|00002560| 20 74 79 70 65 25 2c 70 | 6f 73 25 2c 78 25 0d 0f | type%,p|os%,x%..|
|00002570| f0 4c c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.L.. "Wi|mp_LoadT|
|00002580| 65 6d 70 6c 61 74 65 22 | 2c 2c 71 25 2c 69 70 74 |emplate"|,,q%,ipt|
|00002590| 72 25 2c 69 65 6e 64 25 | 2c 2d 31 2c 6e 61 6d 65 |r%,iend%|,-1,name|
|000025a0| 24 2c 30 20 b8 20 74 79 | 70 65 25 2c 2c 69 70 74 |$,0 . ty|pe%,,ipt|
|000025b0| 72 25 2c 2c 2c 2c 70 6f | 73 25 0d 0f fa 05 e1 0d |r%,,,,po|s%......|
|000025c0| 10 04 04 0d 10 0e 17 dd | f2 63 6c 6f 73 65 74 65 |........|.closete|
|000025d0| 6d 70 6c 61 74 65 66 69 | 6c 65 0d 10 18 1b c8 99 |mplatefi|le......|
|000025e0| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 54 65 6d 70 | "Wimp_C|loseTemp|
|000025f0| 6c 61 74 65 22 0d 10 22 | 05 e1 0d 10 2c 04 0d 10 |late".."|....,...|
|00002600| 36 22 dd f2 6d 6f 75 73 | 65 5f 72 65 63 74 61 6e |6"..mous|e_rectan|
|00002610| 67 6c 65 28 78 25 2c 79 | 25 2c 77 25 2c 68 25 29 |gle(x%,y|%,w%,h%)|
|00002620| 0d 10 40 15 c8 97 20 c8 | 93 20 78 25 2c 79 25 2c |..@... .|. x%,y%,|
|00002630| 77 25 2c 68 25 0d 10 4a | 05 e1 0d 10 54 04 0d 10 |w%,h%..J|....T...|
|00002640| 5e 1d dd f2 6d 6f 75 73 | 65 5f 6c 69 6d 69 74 28 |^...mous|e_limit(|
|00002650| 62 2c 77 68 61 6e 64 6c | 65 25 29 0d 10 68 2c 62 |b,whandl|e%)..h,b|
|00002660| 21 30 3d 77 68 61 6e 64 | 6c 65 25 3a c8 99 20 22 |!0=whand|le%:.. "|
|00002670| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00002680| 61 74 65 22 2c 2c 62 0d | 10 72 2f f2 6d 6f 75 73 |ate",,b.|.r/.mous|
|00002690| 65 5f 72 65 63 74 61 6e | 67 6c 65 28 62 21 34 2c |e_rectan|gle(b!4,|
|000026a0| 62 21 38 2c 62 21 31 32 | 2d 62 21 34 2c 62 21 31 |b!8,b!12|-b!4,b!1|
|000026b0| 36 2d 62 21 38 29 0d 10 | 7c 05 e1 0d 10 86 04 0d |6-b!8)..||.......|
|000026c0| 10 90 14 dd f2 64 65 6c | 61 79 28 73 65 63 6f 6e |.....del|ay(secon|
|000026d0| 64 73 29 0d 10 9a 0a ea | 20 74 69 6d 65 0d 10 a4 |ds).....| time...|
|000026e0| 1e 74 69 6d 65 20 3d 20 | 91 20 2b 20 28 73 65 63 |.time = |. + (sec|
|000026f0| 6f 6e 64 73 20 2a 20 31 | 30 30 29 0d 10 ae 05 f5 |onds * 1|00).....|
|00002700| 0d 10 b8 0e fd 20 91 20 | 3e 20 74 69 6d 65 0d 10 |..... . |> time..|
|00002710| c2 05 e1 0d 10 cc 04 0d | 10 d6 19 dd a4 75 70 70 |........|.....upp|
|00002720| 65 72 5f 63 61 73 65 28 | 73 74 72 69 6e 67 24 29 |er_case(|string$)|
|00002730| 0d 10 e0 0b ea 20 6c 6f | 6f 70 25 0d 10 ea 16 e7 |..... lo|op%.....|
|00002740| 20 a9 28 73 74 72 69 6e | 67 24 29 20 3e 20 30 20 | .(strin|g$) > 0 |
|00002750| 8c 0d 10 f4 1d 20 e3 20 | 6c 6f 6f 70 25 20 3d 20 |..... . |loop% = |
|00002760| 31 20 b8 20 a9 28 73 74 | 72 69 6e 67 24 29 0d 10 |1 . .(st|ring$)..|
|00002770| fe 3a 20 20 20 e7 20 c1 | 73 74 72 69 6e 67 24 2c |.: . .|string$,|
|00002780| 6c 6f 6f 70 25 2c 31 29 | 3e 3d 22 61 22 20 80 20 |loop%,1)|>="a" . |
|00002790| c1 73 74 72 69 6e 67 24 | 2c 6c 6f 6f 70 25 2c 31 |.string$|,loop%,1|
|000027a0| 29 3c 3d 22 7a 22 20 8c | 0d 11 08 3a 20 20 20 20 |)<="z" .|...: |
|000027b0| 20 c1 73 74 72 69 6e 67 | 24 2c 6c 6f 6f 70 25 2c | .string|$,loop%,|
|000027c0| 31 29 20 3d 20 bd 28 97 | 28 c1 73 74 72 69 6e 67 |1) = .(.|(.string|
|000027d0| 24 2c 6c 6f 6f 70 25 2c | 31 29 29 20 80 20 26 44 |$,loop%,|1)) . &D|
|000027e0| 46 29 0d 11 12 08 20 20 | 20 cd 0d 11 1c 0c 20 ed |F).... | ..... .|
|000027f0| 20 6c 6f 6f 70 25 0d 11 | 26 05 cd 0d 11 30 0d 3d | loop%..|&....0.=|
|00002800| 20 73 74 72 69 6e 67 24 | 0d 11 3a 04 0d 11 44 27 | string$|..:...D'|
|00002810| dd f2 57 69 6e 64 6f 77 | 5f 52 65 54 69 74 6c 65 |..Window|_ReTitle|
|00002820| 28 62 2c 77 68 61 6e 64 | 6c 65 25 2c 74 69 74 6c |(b,whand|le%,titl|
|00002830| 65 24 29 0d 11 4e 0b ea | 20 77 6f 62 6c 6b 0d 11 |e$)..N..| woblk..|
|00002840| 58 0d de 20 77 6f 62 6c | 6b 20 35 0d 11 62 10 62 |X.. wobl|k 5..b.b|
|00002850| 21 30 3d 77 68 61 6e 64 | 6c 65 25 0d 11 6c 1e c8 |!0=whand|le%..l..|
|00002860| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00002870| 77 49 6e 66 6f 22 2c 2c | 62 0d 11 76 15 24 28 21 |wInfo",,|b..v.$(!|
|00002880| 28 62 2b 37 36 29 29 3d | 74 69 74 6c 65 24 0d 11 |(b+76))=|title$..|
|00002890| 80 14 77 6f 62 6c 6b 21 | 30 3d 77 68 61 6e 64 6c |..woblk!|0=whandl|
|000028a0| 65 25 0d 11 8a 25 c8 99 | 20 22 57 69 6d 70 5f 47 |e%...%..| "Wimp_G|
|000028b0| 65 74 57 69 6e 64 6f 77 | 4f 75 74 6c 69 6e 65 22 |etWindow|Outline"|
|000028c0| 2c 2c 77 6f 62 6c 6b 0d | 11 94 44 c8 99 20 22 57 |,,woblk.|..D.. "W|
|000028d0| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|000028e0| 2c 2d 31 2c 77 6f 62 6c | 6b 21 34 2c 28 77 6f 62 |,-1,wobl|k!4,(wob|
|000028f0| 6c 6b 21 31 36 29 2d 34 | 30 2c 77 6f 62 6c 6b 21 |lk!16)-4|0,woblk!|
|00002900| 31 32 2c 77 6f 62 6c 6b | 21 31 36 0d 11 9e 05 e1 |12,woblk|!16.....|
|00002910| 0d 11 a8 04 0d 11 b2 11 | dd a4 6c 65 61 66 28 70 |........|..leaf(p|
|00002920| 61 74 68 24 29 0d 11 bc | 12 c8 95 20 a7 70 61 74 |ath$)...|... .pat|
|00002930| 68 24 2c 22 2e 22 29 0d | 11 c6 21 20 20 70 61 74 |h$,".").|..! pat|
|00002940| 68 24 3d c1 70 61 74 68 | 24 2c a7 70 61 74 68 24 |h$=.path|$,.path$|
|00002950| 2c 22 2e 22 29 2b 31 29 | 0d 11 d0 05 ce 0d 11 da |,".")+1)|........|
|00002960| 0a 3d 70 61 74 68 24 0d | 11 e4 04 0d 11 ee 10 dd |.=path$.|........|
|00002970| a4 67 6e 61 6d 65 28 70 | 74 72 29 0d 11 f8 09 66 |.gname(p|tr)....f|
|00002980| 24 3d 22 22 0d 12 02 19 | c8 95 20 3f 70 74 72 3c |$=""....|.. ?ptr<|
|00002990| 3e 30 20 80 20 3f 70 74 | 72 3c 3e 31 33 0d 12 0c |>0 . ?pt|r<>13...|
|000029a0| 18 20 20 66 24 3d 66 24 | 2b bd 3f 70 74 72 3a 70 |. f$=f$|+.?ptr:p|
|000029b0| 74 72 2b 3d 31 0d 12 16 | 05 ce 0d 12 20 07 3d 66 |tr+=1...|.... .=f|
|000029c0| 24 0d 12 2a 04 0d 12 34 | 1a dd a4 66 69 6c 65 5f |$..*...4|...file_|
|000029d0| 6c 65 6e 67 74 68 28 6f | 62 6a 65 63 74 24 29 0d |length(o|bject$).|
|000029e0| 12 3e 37 ea 20 74 79 70 | 65 25 2c 6c 6f 61 64 5f |.>7. typ|e%,load_|
|000029f0| 61 64 64 72 25 2c 65 78 | 65 63 5f 61 64 64 72 25 |addr%,ex|ec_addr%|
|00002a00| 2c 6c 65 6e 67 74 68 25 | 2c 61 74 74 73 25 2c 73 |,length%|,atts%,s|
|00002a10| 74 72 69 6e 67 24 0d 12 | 48 47 c8 99 20 22 4f 53 |tring$..|HG.. "OS|
|00002a20| 5f 46 69 6c 65 22 2c 35 | 2c 6f 62 6a 65 63 74 24 |_File",5|,object$|
|00002a30| 20 b8 20 74 79 70 65 25 | 2c 2c 6c 6f 61 64 5f 61 | . type%|,,load_a|
|00002a40| 64 64 72 25 2c 65 78 65 | 63 5f 61 64 64 72 25 2c |ddr%,exe|c_addr%,|
|00002a50| 6c 65 6e 67 74 68 25 2c | 61 74 74 73 25 0d 12 52 |length%,|atts%..R|
|00002a60| 0c 3d 6c 65 6e 67 74 68 | 25 0d 12 5c 04 0d 12 66 |.=length|%..\...f|
|00002a70| 13 dd a4 66 69 6c 65 5f | 64 61 74 65 28 46 24 29 |...file_|date(F$)|
|00002a80| 0d 12 70 0e ea 20 4c 25 | 2c 41 25 2c 54 25 0d 12 |..p.. L%|,A%,T%..|
|00002a90| 7a 17 24 66 62 75 66 66 | 65 72 25 3d c4 32 38 2c |z.$fbuff|er%=.28,|
|00002aa0| bd 28 30 29 29 0d 12 84 | 2f c8 99 20 22 4f 53 5f |.(0))...|/.. "OS_|
|00002ab0| 46 69 6c 65 22 2c 35 2c | 46 24 20 b8 20 54 25 2c |File",5,|F$ . T%,|
|00002ac0| 2c 6c 61 64 64 72 25 2c | 65 61 64 64 72 25 2c 4c |,laddr%,|eaddr%,L|
|00002ad0| 25 2c 41 25 0d 12 8e 3b | f4 20 6c 6f 61 64 20 61 |%,A%...;|. load a|
|00002ae0| 6e 64 20 65 78 65 63 75 | 74 69 6f 6e 20 61 64 64 |nd execu|tion add|
|00002af0| 72 65 73 73 65 73 20 61 | 72 65 2c 20 69 6e 20 66 |resses a|re, in f|
|00002b00| 61 63 74 2c 20 74 69 6d | 65 20 73 74 61 6d 70 0d |act, tim|e stamp.|
|00002b10| 12 98 19 66 64 61 74 65 | 25 3f 34 3d 6c 61 64 64 |...fdate|%?4=ladd|
|00002b20| 72 25 20 80 20 26 46 46 | 0d 12 a2 1d 66 64 61 74 |r% . &FF|....fdat|
|00002b30| 65 25 3f 33 3d 65 61 64 | 64 72 25 3e 3e 32 34 20 |e%?3=ead|dr%>>24 |
|00002b40| 80 20 26 46 46 0d 12 ac | 1d 66 64 61 74 65 25 3f |. &FF...|.fdate%?|
|00002b50| 32 3d 65 61 64 64 72 25 | 3e 3e 31 36 20 80 20 26 |2=eaddr%|>>16 . &|
|00002b60| 46 46 0d 12 b6 1d 66 64 | 61 74 65 25 3f 31 3d 65 |FF....fd|ate%?1=e|
|00002b70| 61 64 64 72 25 3e 3e 38 | 20 20 80 20 26 46 46 0d |addr%>>8| . &FF.|
|00002b80| 12 c0 1d 66 64 61 74 65 | 25 3f 30 3d 65 61 64 64 |...fdate|%?0=eadd|
|00002b90| 72 25 20 20 20 20 20 80 | 20 26 46 46 0d 12 ca 3c |r% .| &FF...<|
|00002ba0| c8 99 20 22 4f 53 5f 43 | 6f 6e 76 65 72 74 53 74 |.. "OS_C|onvertSt|
|00002bb0| 61 6e 64 61 72 64 44 61 | 74 65 41 6e 64 54 69 6d |andardDa|teAndTim|
|00002bc0| 65 22 2c 20 66 64 61 74 | 65 25 2c 20 66 62 75 66 |e", fdat|e%, fbuf|
|00002bd0| 66 65 72 25 2c 20 32 38 | 0d 12 d4 0e 3d 24 66 62 |fer%, 28|....=$fb|
|00002be0| 75 66 66 65 72 25 0d 12 | de 04 0d 12 e8 19 dd a4 |uffer%..|........|
|00002bf0| 75 70 70 65 72 5f 63 61 | 73 65 28 73 74 72 69 6e |upper_ca|se(strin|
|00002c00| 67 24 29 0d 12 f2 0b ea | 20 6c 6f 6f 70 25 0d 12 |g$).....| loop%..|
|00002c10| fc 16 e7 20 a9 28 73 74 | 72 69 6e 67 24 29 20 3e |... .(st|ring$) >|
|00002c20| 20 30 20 8c 0d 13 06 1d | 20 e3 20 6c 6f 6f 70 25 | 0 .....| . loop%|
|00002c30| 20 3d 20 31 20 b8 20 a9 | 28 73 74 72 69 6e 67 24 | = 1 . .|(string$|
|00002c40| 29 0d 13 10 3a 20 20 20 | e7 20 c1 73 74 72 69 6e |)...: |. .strin|
|00002c50| 67 24 2c 6c 6f 6f 70 25 | 2c 31 29 3e 3d 22 61 22 |g$,loop%|,1)>="a"|
|00002c60| 20 80 20 c1 73 74 72 69 | 6e 67 24 2c 6c 6f 6f 70 | . .stri|ng$,loop|
|00002c70| 25 2c 31 29 3c 3d 22 7a | 22 20 8c 0d 13 1a 3a 20 |%,1)<="z|" ....: |
|00002c80| 20 20 20 20 c1 73 74 72 | 69 6e 67 24 2c 6c 6f 6f | .str|ing$,loo|
|00002c90| 70 25 2c 31 29 20 3d 20 | bd 28 97 28 c1 73 74 72 |p%,1) = |.(.(.str|
|00002ca0| 69 6e 67 24 2c 6c 6f 6f | 70 25 2c 31 29 29 20 80 |ing$,loo|p%,1)) .|
|00002cb0| 20 26 44 46 29 0d 13 24 | 08 20 20 20 cd 0d 13 2e | &DF)..$|. ....|
|00002cc0| 0c 20 ed 20 6c 6f 6f 70 | 25 0d 13 38 05 cd 0d 13 |. . loop|%..8....|
|00002cd0| 42 0d 3d 20 73 74 72 69 | 6e 67 24 0d 13 4c 04 0d |B.= stri|ng$..L..|
|00002ce0| 13 56 4c f4 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.VL. ---|--------|
|00002cf0| 20 52 6f 75 74 69 6e 65 | 73 20 74 6f 20 63 72 65 | Routine|s to cre|
|00002d00| 61 74 65 20 61 20 62 75 | 66 66 65 72 20 61 72 65 |ate a bu|ffer are|
|00002d10| 61 20 69 6e 20 74 68 65 | 20 52 4d 41 20 2d 2d 2d |a in the| RMA ---|
|00002d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 13 60 04 0d |--------|---..`..|
|00002d30| 13 6a 15 dd a4 42 75 66 | 66 5f 43 72 65 61 74 65 |.j...Buf|f_Create|
|00002d40| 28 6c 25 29 0d 13 74 0e | ea 20 66 25 2c 70 25 2c |(l%)..t.|. f%,p%,|
|00002d50| 6e 25 0d 13 7e 25 e7 20 | 6c 25 83 34 3c 3e 30 20 |n%..~%. |l%.4<>0 |
|00002d60| 8c 20 6e 25 3d 28 6c 25 | 81 34 2b 31 29 2a 34 20 |. n%=(l%|.4+1)*4 |
|00002d70| 8b 20 6e 25 3d 6c 25 0d | 13 88 23 c8 99 20 22 4f |. n%=l%.|..#.. "O|
|00002d80| 53 5f 4d 6f 64 75 6c 65 | 22 2c 36 2c 2c 2c 6e 25 |S_Module|",6,,,n%|
|00002d90| 20 b8 20 2c 2c 70 25 3b | 66 25 0d 13 92 14 e7 20 | . ,,p%;|f%..... |
|00002da0| 28 66 25 80 31 29 3c 3e | a3 20 8c 20 3d 30 0d 13 |(f%.1)<>|. . =0..|
|00002db0| 9c 0a 21 70 25 3d 6c 25 | 0d 13 a6 07 3d 70 25 0d |..!p%=l%|....=p%.|
|00002dc0| 13 b0 04 0d 13 ba 14 dd | f2 42 75 66 66 5f 53 63 |........|.Buff_Sc|
|00002dd0| 72 61 70 28 70 25 29 0d | 13 c4 18 c8 99 20 22 4f |rap(p%).|..... "O|
|00002de0| 53 5f 4d 6f 64 75 6c 65 | 22 2c 37 2c 2c 70 25 0d |S_Module|",7,,p%.|
|00002df0| 13 ce 05 e1 0d 13 d8 04 | 0d 13 e2 1b dd f2 42 75 |........|......Bu|
|00002e00| 66 66 5f 45 6e 6c 61 72 | 67 65 28 f8 20 70 25 2c |ff_Enlar|ge(. p%,|
|00002e10| 6c 25 29 0d 13 ec 08 ea | 20 6e 25 0d 13 f6 1f e7 |l%).....| n%.....|
|00002e20| 20 70 25 3d 30 20 8c 20 | 70 25 3d a4 42 75 66 66 | p%=0 . |p%=.Buff|
|00002e30| 5f 43 72 65 61 74 65 28 | 34 29 0d 14 00 17 6e 25 |_Create(|4)....n%|
|00002e40| 3d a4 42 75 66 66 5f 43 | 72 65 61 74 65 28 6c 25 |=.Buff_C|reate(l%|
|00002e50| 29 0d 14 0a 0d e7 20 6e | 25 3c 3e 30 20 8c 0d 14 |)..... n|%<>0 ...|
|00002e60| 14 17 20 20 f2 42 75 66 | 66 5f 43 6f 70 79 28 70 |.. .Buf|f_Copy(p|
|00002e70| 25 2c 6e 25 29 0d 14 1e | 15 20 20 f2 42 75 66 66 |%,n%)...|. .Buff|
|00002e80| 5f 53 63 72 61 70 28 70 | 25 29 0d 14 28 0b 20 20 |_Scrap(p|%)..(. |
|00002e90| 70 25 3d 6e 25 0d 14 32 | 05 cc 0d 14 3c 0a 20 20 |p%=n%..2|....<. |
|00002ea0| 70 25 3d 30 0d 14 46 05 | cd 0d 14 50 05 e1 0d 14 |p%=0..F.|...P....|
|00002eb0| 5a 04 0d 14 64 16 dd f2 | 42 75 66 66 5f 43 6f 70 |Z...d...|Buff_Cop|
|00002ec0| 79 28 70 25 2c 6e 25 29 | 0d 14 6e 08 ea 20 69 25 |y(p%,n%)|..n.. i%|
|00002ed0| 0d 14 78 48 e7 21 70 25 | 3e 21 6e 25 20 8c 20 85 |..xH.!p%|>!n% . .|
|00002ee0| 20 31 30 31 2c 22 45 52 | 52 4f 52 20 2d 20 42 75 | 101,"ER|ROR - Bu|
|00002ef0| 66 66 65 72 20 74 6f 6f | 20 73 6d 61 6c 6c 2c 20 |ffer too| small, |
|00002f00| 69 6e 20 42 75 66 66 5f | 43 6f 70 79 20 50 72 6f |in Buff_|Copy Pro|
|00002f10| 63 65 64 75 72 65 3b 22 | 0d 14 82 58 e7 21 70 25 |cedure;"|...X.!p%|
|00002f20| 83 34 3c 3e 30 20 8c 20 | 85 20 31 30 32 2c 22 45 |.4<>0 . |. 102,"E|
|00002f30| 52 52 4f 52 20 2d 20 42 | 75 66 66 65 72 20 73 69 |RROR - B|uffer si|
|00002f40| 7a 65 20 6e 6f 74 20 61 | 20 6d 75 6c 74 69 70 6c |ze not a| multipl|
|00002f50| 65 20 6f 66 20 34 2c 20 | 69 6e 20 42 75 66 66 5f |e of 4, |in Buff_|
|00002f60| 43 6f 70 79 20 50 72 6f | 63 65 64 75 72 65 3b 22 |Copy Pro|cedure;"|
|00002f70| 0d 14 8c 16 e3 20 69 25 | 3d 34 20 b8 20 21 70 25 |..... i%|=4 . !p%|
|00002f80| 2d 31 20 88 20 34 0d 14 | 96 11 20 20 6e 25 21 69 |-1 . 4..|.. n%!i|
|00002f90| 25 3d 70 25 21 69 25 0d | 14 a0 08 ed 20 69 25 0d |%=p%!i%.|.... i%.|
|00002fa0| 14 aa 05 e1 0d 14 b4 04 | 0d 14 be 1c dd a4 42 75 |........|......Bu|
|00002fb0| 66 66 5f 66 69 6c 65 6c | 6f 61 64 28 6e 24 2c f8 |ff_filel|oad(n$,.|
|00002fc0| 20 62 25 29 0d 14 c8 14 | ea 20 74 25 2c 6c 25 2c | b%)....|. t%,l%,|
|00002fd0| 65 25 2c 6e 25 2c 72 25 | 0d 14 d2 21 c8 99 22 4f |e%,n%,r%|...!.."O|
|00002fe0| 53 5f 46 69 6c 65 22 2c | 35 2c 6e 24 20 b8 20 72 |S_File",|5,n$ . r|
|00002ff0| 25 2c 2c 74 25 2c 2c 6c | 25 0d 14 dc 0e 65 25 3d |%,,t%,,l|%....e%=|
|00003000| 6c 25 2b 26 34 30 30 0d | 14 e6 23 e7 20 65 25 3e |l%+&400.|..#. e%>|
|00003010| 21 62 25 20 8c 20 f2 42 | 75 66 66 5f 45 6e 6c 61 |!b% . .B|uff_Enla|
|00003020| 72 67 65 28 62 25 2c 65 | 25 29 0d 14 f0 0f e7 20 |rge(b%,e|%)..... |
|00003030| 62 25 3d 30 20 8c 20 3d | 30 0d 14 fa 33 62 25 21 |b%=0 . =|0...3b%!|
|00003040| 34 3d 6c 25 3a c8 99 20 | 22 4f 53 5f 46 69 6c 65 |4=l%:.. |"OS_File|
|00003050| 22 2c 32 35 35 2c 6e 24 | 2c 62 25 2b 38 2c 30 3a |",255,n$|,b%+8,0:|
|00003060| 21 28 62 25 2b 6c 25 2b | 38 29 3d 30 0d 15 04 09 |!(b%+l%+|8)=0....|
|00003070| 3d 62 25 2b 34 0d 15 0e | 20 dd f2 6b 65 79 70 72 |=b%+4...| ..keypr|
|00003080| 65 73 73 5f 6d 61 69 6e | 77 28 69 63 6f 6e 25 2c |ess_main|w(icon%,|
|00003090| 6b 65 79 25 29 0d 15 18 | 0a 73 65 74 25 3d b9 0d |key%)...|.set%=..|
|000030a0| 15 22 0a c8 8e 20 b9 20 | ca 0d 15 2c 0d c9 20 69 |."... . |...,.. i|
|000030b0| 63 6f 6e 25 3d 38 0d 15 | 36 0a c8 8e 20 b9 20 ca |con%=8..|6... . .|
|000030c0| 0d 15 40 0d c9 20 6b 65 | 79 25 3d 31 33 0d 15 4a |..@.. ke|y%=13..J|
|000030d0| 25 6f 72 64 65 72 24 3d | a4 69 63 6f 6e 5f 67 65 |%order$=|.icon_ge|
|000030e0| 74 64 61 74 61 28 71 25 | 2c 6d 61 69 6e 77 25 2c |tdata(q%|,mainw%,|
|000030f0| 38 29 0d 15 54 1f 6f 72 | 64 65 72 25 3d bb 28 6f |8)..T.or|der%=.(o|
|00003100| 72 64 65 72 24 29 3a 63 | 68 61 6e 67 65 64 25 3d |rder$):c|hanged%=|
|00003110| b9 0d 15 5e 05 cb 0d 15 | 68 05 cb 0d 15 72 05 e1 |...^....|h....r..|
|00003120| 0d 15 7c 0a dd f2 64 72 | 61 77 0d 15 86 15 c8 99 |..|...dr|aw......|
|00003130| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|00003140| 15 90 5b c8 99 20 22 4f | 53 5f 53 70 72 69 74 65 |..[.. "O|S_Sprite|
|00003150| 4f 70 22 2c 35 31 32 2b | 36 30 2c 73 70 2c 73 70 |Op",512+|60,sp,sp|
|00003160| 5f 70 74 72 31 25 2c 30 | 20 b8 20 72 30 2c 72 31 |_ptr1%,0| . r0,r1|
|00003170| 2c 72 32 2c 72 33 3a f4 | 20 73 77 69 74 63 68 20 |,r2,r3:.| switch |
|00003180| 56 44 55 20 6f 75 74 70 | 75 74 20 74 6f 20 27 6d |VDU outp|ut to 'm|
|00003190| 61 70 27 20 73 70 72 69 | 74 65 0d 15 9a 10 e7 20 |ap' spri|te..... |
|000031a0| 64 72 61 77 6e 25 3d b9 | 20 8c 0d 15 a4 05 da 0d |drawn%=.| .......|
|000031b0| 15 ae 05 cd 0d 15 b8 1f | 79 3d a4 61 28 31 29 3a |........|y=.a(1):|
|000031c0| e6 30 2c 31 31 3a ec 20 | 30 2c 33 39 30 2b 34 36 |.0,11:. |0,390+46|
|000031d0| 30 2a 79 0d 15 c2 34 e3 | 20 58 3d 20 31 20 b8 20 |0*y...4.| X= 1 . |
|000031e0| 31 32 30 30 20 88 20 35 | 20 20 3a 79 3d a4 61 28 |1200 . 5| :y=.a(|
|000031f0| 58 29 3a f0 35 2c 58 2c | 34 34 30 2d 33 30 30 2a |X):.5,X,|440-300*|
|00003200| 79 2a 73 63 61 3a ed 0d | 15 cc 3f c8 99 20 22 4f |y*sca:..|..?.. "O|
|00003210| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 72 30 2c 72 |S_Sprite|Op",r0,r|
|00003220| 31 2c 72 32 2c 72 33 3a | f4 20 73 77 69 74 63 68 |1,r2,r3:|. switch|
|00003230| 20 6f 75 74 70 75 74 20 | 62 61 63 6b 20 74 6f 20 | output |back to |
|00003240| 73 63 72 65 65 6e 0d 15 | d6 0c 64 72 61 77 6e 25 |screen..|..drawn%|
|00003250| 3d b9 0d 15 e0 16 c8 99 | 20 22 48 6f 75 72 67 6c |=.......| "Hourgl|
|00003260| 61 73 73 5f 4f 66 66 22 | 0d 15 ea 05 e1 0d 15 f4 |ass_Off"|........|
|00003270| 0a dd a4 61 28 58 29 0d | 15 fe 04 0d 16 08 07 79 |...a(X).|.......y|
|00003280| 3d 30 0d 16 12 28 e3 20 | 41 20 3d 20 73 74 61 72 |=0...(. |A = star|
|00003290| 74 25 20 b8 20 6f 72 64 | 65 72 25 2b 73 74 61 72 |t% . ord|er%+star|
|000032a0| 74 25 20 88 20 73 74 65 | 70 25 0d 16 1c 08 71 2b |t% . ste|p%....q+|
|000032b0| 3d 31 0d 16 26 04 0d 16 | 30 04 0d 16 3a 13 e7 20 |=1..&...|0...:.. |
|000032c0| 64 31 25 20 69 6e 63 3d | 73 74 65 70 25 0d 16 44 |d1% inc=|step%..D|
|000032d0| 0f e7 20 64 32 25 20 69 | 6e 63 3d 31 0d 16 4e 0f |.. d2% i|nc=1..N.|
|000032e0| e7 20 64 33 25 20 69 6e | 63 3d 71 0d 16 58 11 e7 |. d3% in|c=q..X..|
|000032f0| 20 64 31 25 20 69 6e 63 | 3d 71 2a 71 0d 16 62 23 | d1% inc|=q*q..b#|
|00003300| 79 3d 79 2b 28 b5 28 28 | 58 29 2a af 2a 41 2a 66 |y=y+(.((|X)*.*A*f|
|00003310| 72 65 71 2f 36 32 30 29 | 29 2f 28 69 6e 63 29 0d |req/620)|)/(inc).|
|00003320| 16 6c 05 ed 0d 16 76 07 | 71 3d 30 0d 16 80 06 3d |.l....v.|q=0....=|
|00003330| 79 0d 16 8a 31 dd a4 6f | 73 5f 56 61 72 47 65 74 |y...1..o|s_VarGet|
|00003340| 56 61 6c 28 62 75 66 66 | 65 72 25 2c 73 69 7a 65 |Val(buff|er%,size|
|00003350| 25 2c 76 61 72 6e 61 6d | 65 24 2c 65 78 70 61 6e |%,varnam|e$,expan|
|00003360| 64 29 0d 16 94 25 ea 20 | 76 61 6c 75 65 24 2c 6e |d)...%. |value$,n|
|00003370| 72 5f 62 79 74 65 73 25 | 2c 6e 61 6d 65 70 74 72 |r_bytes%|,nameptr|
|00003380| 25 2c 6c 6f 6f 70 25 0d | 16 9e 5b c8 99 20 22 58 |%,loop%.|..[.. "X|
|00003390| 4f 53 5f 52 65 61 64 56 | 61 72 56 61 6c 22 2c 76 |OS_ReadV|arVal",v|
|000033a0| 61 72 6e 61 6d 65 24 2c | 62 75 66 66 65 72 25 2c |arname$,|buffer%,|
|000033b0| 73 69 7a 65 25 2c 30 2c | 2d 33 2a 28 65 78 70 61 |size%,0,|-3*(expa|
|000033c0| 6e 64 3d b9 29 20 b8 20 | 2c 2c 6e 72 5f 62 79 74 |nd=.) . |,,nr_byt|
|000033d0| 65 73 25 2c 6e 61 6d 65 | 70 74 72 25 2c 74 79 70 |es%,name|ptr%,typ|
|000033e0| 65 25 0d 16 a8 1b e3 20 | 6c 6f 6f 70 25 3d 30 20 |e%..... |loop%=0 |
|000033f0| b8 20 6e 72 5f 62 79 74 | 65 73 25 2d 31 0d 16 b2 |. nr_byt|es%-1...|
|00003400| 33 20 20 76 61 6c 75 65 | 24 3d 76 61 6c 75 65 24 |3 value|$=value$|
|00003410| 2b bd 28 6e 61 6d 65 70 | 74 72 25 3f 28 6c 6f 6f |+.(namep|tr%?(loo|
|00003420| 70 25 2b a9 76 61 72 6e | 61 6d 65 24 2b 33 29 29 |p%+.varn|ame$+3))|
|00003430| 0d 16 bc 0b ed 20 6c 6f | 6f 70 25 0d 16 c6 0b 3d |..... lo|op%....=|
|00003440| 76 61 6c 75 65 24 0d ff | |value$..| |
+--------+-------------------------+-------------------------+--------+--------+
